diff options
Diffstat (limited to 'tests/runtests.pl')
-rw-r--r-- | tests/runtests.pl | 49 |
1 files changed, 10 insertions, 39 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index 8c0392259..282d14aeb 100644 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -38,24 +38,28 @@ sub test_results foreach my $format (@writeformats) { $options = ""; - if ($format =~ /smart\./) - { - $options = "-S "; - } my $extension = $format; - $extension =~ s/smart\.//g; - print "Testing $format writer..."; + `$script -r native -w $extension $options -s $source > tmp.$extension`; test_results("$format writer", "tmp.$extension", "writer.$format"); + + print " $format tables..."; + + `$script -r native -w $extension tables.native > tmp.$extension`; + + test_results("$format writer", "tmp.$extension", "tables.$format"); } print "Testing docbook writer..."; # remove HTML block tests, as this produces invalid docbook... `sed -e '/^, Header 1 \\[Str "HTML",Space,Str "Blocks"\\]/,/^, HorizontalRule/d' testsuite.native | $script -r native -w docbook -s > tmp.docbook`; test_results("docbook writer", "tmp.docbook", "writer.docbook"); +`$script -r native -w docbook tables.native > tmp.docbook`; +print " docbook tables..."; +test_results("docbook tables", "tmp.docbook", "tables.docbook"); print "Testing s5 writer (basic)..."; `$script -r native -w s5 -s s5.native > tmp.html`; @@ -73,45 +77,12 @@ print "Testing -H -B -A -c options..."; `$script -r native -s -w html -H insert -B insert -A insert -c main.css s5.native > tmp.html`; test_results("-B, -A, -H, -c options", "tmp.html", "s5.inserts.html"); -print "Testing tables:\n"; -print " html writer..."; -`$script -r native -w html tables.native > tmp.html`; -test_results("html table writer", "tmp.html", "tables.html"); - -print " latex writer..."; -`$script -r native -w latex tables.native > tmp.tex`; -test_results("latex table writer", "tmp.tex", "tables.tex"); - -print " docbook writer..."; -`$script -r native -w docbook tables.native > tmp.db`; -test_results("docbook table writer", "tmp.db", "tables.db"); - -print " rtf writer..."; -`$script -r native -w rtf tables.native > tmp.rtf`; -test_results("rtf table writer", "tmp.rtf", "tables.rtf"); - -print " markdown writer..."; -`$script -r native -w markdown tables.native > tmp.markdown`; -test_results("markdown table writer", "tmp.markdown", "tables.markdown"); - -print " rst writer..."; -`$script -r native -w rst tables.native > tmp.rst`; -test_results("rst table writer", "tmp.rst", "tables.rst"); - -print " man writer..."; -`$script -r native -w man tables.native > tmp.man`; -test_results("man table writer", "tmp.man", "tables.man"); - print "\nReader tests:\n"; print "Testing markdown reader..."; `$script -r markdown -w native -s -S testsuite.txt > tmp.native`; test_results("markdown reader", "tmp.native", "testsuite.native"); -print " tables..."; -`$script -r markdown -w native tables.txt > tmp.native`; -test_results("markdown table reader", "tmp.native", "tables.native"); - print "Testing rst reader..."; `$script -r rst -w native -s rst-reader.rst > tmp.native`; test_results("rst reader", "tmp.native", "rst-reader.native"); |