From 38f8cc36eb6f1ff8b37ea8774de4185fc76dc164 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Thu, 23 Aug 2007 18:47:04 +0000
Subject: import da BlackBit

git-svn-id: svn://luxion/repos/Template-Plugin-ASCIITable@278 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 t/01use.t | 200 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 200 insertions(+)
 create mode 100644 t/01use.t

(limited to 't')

diff --git a/t/01use.t b/t/01use.t
new file mode 100644
index 0000000..d3f2ef0
--- /dev/null
+++ b/t/01use.t
@@ -0,0 +1,200 @@
+#!/usr/bin/perl
+use Test::More tests=>22;
+use strict;
+use warnings;
+use Template;
+
+my $t=Template->new();
+
+my $input=<<'EOT';
+[% USE ASCIITable %]
+EOT
+
+my $output='';
+
+ok($t->process(\$input,{},\$output),'empty template');
+is($output,"\n",'empty template output');
+
+$input=<<'EOT';
+[%- USE table=ASCIITable -%]
+[%- table.cols('a','b','c') -%]
+[%- table.rows([1,2,3],[4,5,6]) -%]
+[%- table.draw %]
+EOT
+$output='';
+ok($t->process(\$input,{},\$output),'simple table');
+is($output,<<'OUT','simple output');
+.-----------.
+| a | b | c |
++---+---+---+
+| 1 | 2 | 3 |
+| 4 | 5 | 6 |
+'---+---+---'
+OUT
+
+$input=<<'EOT';
+[%- USE table=ASCIITable(cols=>['a','b','c'],show=>'rowline') -%]
+[%- table.rows([1,2,3],[4,5,6]) -%]
+[%- table.draw %]
+EOT
+$output='';
+ok($t->process(\$input,{},\$output),'rowline');
+is($output,<<'OUT','rowline output');
+.-----------.
+| a | b | c |
++---+---+---+
+| 1 | 2 | 3 |
++---+---+---+
+| 4 | 5 | 6 |
+'---+---+---'
+OUT
+
+$input=<<'EOT';
+[%- USE table=ASCIITable -%]
+[%- table.rows([1,2,3234],[4,'x',6345]) -%]
+[%- table.cols('a',['b','auto',5,1],['c','left',3]) %]
+[%- table.draw %]
+EOT
+$output='';
+ok($t->process(\$input,{},\$output),'widths');
+is($output,<<'OUT','widths output');
+.-----------------.
+| a | b     | c   |
++---+-------+-----+
+| 1 |     2 | 323 |
+| 4 | x     | 634 |
+'---+-------+-----'
+OUT
+
+$input=<<'EOT';
+[%- USE table=ASCIITable(style=>'ReST-simple') -%]
+[%- table.rows([1,2,3234],[4,'x',6345]) -%]
+[%- table.cols('a','b','c') -%]
+[%- table.draw %]
+EOT
+$output='';
+ok($t->process(\$input,{},\$output),'style simple');
+is($output,<<'OUT','style simple output');
+=== === ======
+ a   b   c    
+=== === ======
+ 1   2   3234 
+ 4   x   6345 
+=== === ======
+OUT
+
+$input=<<'EOT';
+[%- USE table=ASCIITable(style=>'ReST-grid') -%]
+[%- table.rows([1,2,3234],[4,'x',6345]) -%]
+[%- table.cols('a','b','c') -%]
+[%- table.draw %]
+EOT
+$output='';
+ok($t->process(\$input,{},\$output),'style grid');
+is($output,<<'OUT','style grid output');
++---+---+------+
+| a | b | c    |
++===+===+======+
+| 1 | 2 | 3234 |
++---+---+------+
+| 4 | x | 6345 |
++---+---+------+
+OUT
+
+$input=<<'EOT';
+[%- USE table=ASCIITable(style=>'default') -%]
+[%- table.cols('a','b','c') -%]
+[%- table.rows([1,2,3],[4,5,6]) -%]
+[%- table.draw %]
+EOT
+$output='';
+ok($t->process(\$input,{},\$output),'style default');
+is($output,<<'OUT','style default output');
+.-----------.
+| a | b | c |
++---+---+---+
+| 1 | 2 | 3 |
+| 4 | 5 | 6 |
+'---+---+---'
+OUT
+
+$input=<<'EOT';
+[%- USE table=ASCIITable(style=>'default') -%]
+[%- table.cols('a') -%]
+[%- table.addCols('b','c') -%]
+[%- table.addRows([1,2,3]) -%]
+[%- table.addRows([4,5,6]) -%]
+[%- table.draw %]
+EOT
+$output='';
+ok($t->process(\$input,{},\$output),'add');
+is($output,<<'OUT','add output');
+.-----------.
+| a | b | c |
++---+---+---+
+| 1 | 2 | 3 |
+| 4 | 5 | 6 |
+'---+---+---'
+OUT
+
+$input=<<'EOT';
+[%- USE table=ASCIITable(style=>
+  [[' /',' \\','-','T'],
+   ['#','#','#'],
+   ['>','<','=','+'],
+   ['|','|','-'],
+   [' \\','/ ','_','"'],
+   [':',';','.','*']]) -%]
+[%- table.cols('a','b','c') -%]
+[%- table.rows([1,2,3],[4,5,6]) -%]
+[%- table.hide('firstline') -%]
+[%- table.show('rowline') -%]
+[%- table.draw %]
+EOT
+$output='';
+ok($t->process(\$input,{},\$output),'style by hand');
+is($output,<<'OUT','style by hand output');
+# a # b # c #
+>===+===+===<
+| 1 - 2 - 3 |
+:...*...*...;
+| 4 - 5 - 6 |
+ \__"___"__/ 
+OUT
+
+$input=<<'EOT';
+[%- USE table=ASCIITable(allow=>'html') -%]
+[%- table.cols('a','b','c') -%]
+[%- table.rows(['<b>1</b>',2,3],[4,5,6]) -%]
+[%- table.draw %]
+EOT
+$output='';
+ok($t->process(\$input,{},\$output),'html');
+is($output,<<'OUT','html output');
+.-----------.
+| a | b | c |
++---+---+---+
+| <b>1</b> | 2 | 3 |
+| 4 | 5 | 6 |
+'---+---+---'
+OUT
+
+$input=<<'EOT';
+[%- USE table=ASCIITable(allow=>'html') -%]
+[%- table.cols('a','b','c') -%]
+[%- table.rows(['<b>1</b>',2,3],[4,5,6]) -%]
+[%- table.deny('html') -%]
+[%- table.draw %]
+EOT
+$output='';
+ok($t->process(\$input,{},\$output),'no html');
+is($output,<<'OUT','no html output');
+.------------------.
+| a        | b | c |
++----------+---+---+
+| <b>1</b> | 2 | 3 |
+|        4 | 5 | 6 |
+'----------+---+---'
+OUT
+
+diag($t->error());
-- 
cgit v1.2.3