# -*- tcl -*- # toc_export_text.test: tests for the doctools::toc::export::text package/plugin. # # Copyright (c) 2009 by Andreas Kupries <andreas_kupries@users.sourceforge.net> # All rights reserved. # # RCS: @(#) $Id: export_text.test,v 1.2 2009/11/15 05:50:03 andreas_kupries Exp $ # ------------------------------------------------------------------------- source [file join \ [file dirname [file dirname [file join [pwd] [info script]]]] \ devtools testutilities.tcl] testsNeedTcl 8.4 testsNeedTcltest 2.0 support { use fileutil/fileutil.tcl fileutil ;# tests/common useLocal structure.tcl doctools::toc::structure use doctools2base/text.tcl doctools::text } testing { package provide doctools::toc::export::plugin 1 # The above fakes the export plugin environment. useLocal export_text.tcl doctools::toc::export::text } source [tcllibPath doctools2base/tests/common] set mytestdir tests/data # ------------------------------------------------------------------------- # General set of error cases regarding the number of arguments. test doctools-toc-export-text-1.0 {export, wrong#args} -body { export } -returnCodes error -result {wrong # args: should be "export serial configuration"} test doctools-toc-export-text-1.1 {export, wrong#args} -body { export S } -returnCodes error -result {wrong # args: should be "export serial configuration"} test doctools-toc-export-text-1.2 {export, wrong#args} -body { export S C XXX } -returnCodes error -result {wrong # args: should be "export serial configuration"} # ------------------------------------------------------------------------- # Testing the generation of text output, from toc serialization, # for all possible plugin configurations. TestFilesProcess $mytestdir ok serial text -> n label input data expected { test doctools-toc-export-text-2.$n "doctools::toc::export::text, $label, ok" -body { export $data {} } -result $expected } #---------------------------------------------------------------------- unset n label input data expected testsuiteCleanup return