Merge commit '7c621da28f07e449ad90c387344f07a453927569' as 'tcllib'

1 files changed, 73 insertions, 0 deletions

diff --git a/tcllib/modules/doctools2toc/export_nroff.test b/tcllib/modules/doctools2toc/export_nroff.test
new file mode 100644
index 0000000..bae5dd3
--- /dev/null
+++ b/tcllib/modules/doctools2toc/export_nroff.test
@@ -0,0 +1,73 @@
+# -*- tcl -*-
+# toc_export_nroff.test:  tests for the doctools::toc::export::nroff package/plugin.
+#
+# Copyright (c) 2009 by Andreas Kupries <andreas_kupries@users.sourceforge.net>
+# All rights reserved.
+#
+# RCS: @(#) $Id: export_nroff.test,v 1.3 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
+    use doctools2base/nroff_manmacros.tcl    doctools::nroff::man_macros
+}
+testing {
+    package provide doctools::toc::export::plugin 1
+    # The above fakes the export plugin environment.
+
+    useLocal export_nroff.tcl doctools::toc::export::nroff
+}
+
+source [tcllibPath doctools2base/tests/common]
+set mytestdir tests/data
+
+# -------------------------------------------------------------------------
+
+# General set of error cases regarding the number of arguments.
+
+test doctools-toc-export-nroff-1.0 {export, wrong#args} -body {
+    export
+} -returnCodes error -result {wrong # args: should be "export serial configuration"}
+
+test doctools-toc-export-nroff-1.1 {export, wrong#args} -body {
+    export S
+} -returnCodes error -result {wrong # args: should be "export serial configuration"}
+
+test doctools-toc-export-nroff-1.2 {export, wrong#args} -body {
+    export S C XXX
+} -returnCodes error -result {wrong # args: should be "export serial configuration"}
+
+# -------------------------------------------------------------------------
+
+# Testing the generation of nroff output, from toc serialization,
+# for all possible plugin configurations.
+
+foreach {k inline section} {
+    0 0 -external
+    1 1 -inlined
+} {
+    TestFilesProcess $mytestdir ok serial nroff$section -> n label input data expected {
+	test doctools-toc-export-nroff-2.$k.$n "doctools::toc::export::nroff, $label$section, ok" -setup {
+	    set configuration [list inline $inline user _dummy_]
+	} -body {
+	    stripnroffcomments [stripmanmacros [export $data $configuration]]
+	} -cleanup {
+	    unset configuration
+	} -result $expected
+    }
+}
+
+#----------------------------------------------------------------------
+unset n label input data expected
+testsuiteCleanup
+return