diff options
Diffstat (limited to 'tcllib/modules/tepam/proc_call_arg_nun.test')
| -rw-r--r-- | tcllib/modules/tepam/proc_call_arg_nun.test | 451 |
1 files changed, 451 insertions, 0 deletions
diff --git a/tcllib/modules/tepam/proc_call_arg_nun.test b/tcllib/modules/tepam/proc_call_arg_nun.test new file mode 100644 index 0000000..1ef37af --- /dev/null +++ b/tcllib/modules/tepam/proc_call_arg_nun.test @@ -0,0 +1,451 @@ +########################################################################## +# TEPAM - Tcl's Enhanced Procedure and Argument Manager +########################################################################## +# +# proc_call_arg_nun.test: +# This file is part of the enhanced procedure and argument manager's regression +# test. It validates the usage of the different combinations of named and +# unnamed arguments using the default argument organization (named arguments +# first, unnamed at the end). +# +# Copyright (C) 2009, 2010 Andreas Drollinger +# +# Id: proc_call_arg_nun.test +########################################################################## +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +########################################################################## + +source [file join \ + [file dirname [file dirname [file join [pwd] [info script]]]] \ + devtools testutilities.tcl] + +testsNeedTcl 8.3 +testsNeedTcltest 1.0 + +catch {namespace delete ::tepam} +testing { + useLocal tepam.tcl tepam +} +set tepam::named_arguments_first 1 + +namespace import tepam::* + +# Tests is an extension of the test command. It adds the option -variations that allows \ +# specifying a list values. For each of these values the test command is executed, replacing all '%1' +# of the original test command string by the altered value. +proc tests {name description args} { + set VariationList(0) {""}; # Default variation list 0, in case no variations are required + for {set NbrVariationLists 0} {1} {incr NbrVariationLists} { + set VariationListPos [lsearch -exact $args -variations] + if {$VariationListPos<0} break + set VariationList($NbrVariationLists) [lindex $args [expr $VariationListPos+1]] + set args [lreplace $args $VariationListPos [expr $VariationListPos+1]] + } + for {set TestNbr 0} {$TestNbr<[llength $VariationList(0)]} {incr TestNbr} { + set TestExec "test \"$name\.$TestNbr\" \"$description.$TestNbr\"" + foreach Arg $args { + set NewArg $Arg + for {set vl 0} {$vl<$NbrVariationLists} {incr vl} { + regsub -all "%[expr $vl+1]" $NewArg [lindex $VariationList($vl) $TestNbr] NewArg + } + append TestExec " \{$NewArg\}" + } + uplevel 1 $TestExec + } +} + +######## Argument combinations ######## + + # Named arguments first: No arguments: + + tepam::procedure Procedure_Arg_0a {-args {}} {return ""} + tepam::procedure Procedure_Arg_0b {} {return ""} + + foreach c {a b} { + tests tepam-proccall.nun.noarg.$c.0 "Procedure calls, UNN, no arguments defined, $c, 0" \ + -body "Procedure_Arg_0$c" \ + -result "" -output "" + tests tepam-proccall.nun.noarg.$c.1 "Procedure calls, UNN, no arguments defined, $c, 0" \ + -body "Procedure_Arg_0$c --" \ + -result "" -output "" + tests tepam-proccall.nun.noarg.$c.2 "Procedure calls, UNN, no arguments defined, $c, 1" \ + -variations { Parameter2 {""} ?} \ + -body "Procedure_Arg_0$c %1" \ + -returnCodes error -result "*: Too many unnamed arguments: *" -output "" -match glob + tests tepam-proccall.nun.noarg.$c.3 "Procedure calls, UNN, no arguments defined, $c, 2" \ + -variations { -Parameter2} \ + -body "Procedure_Arg_0$c -- %1" \ + -returnCodes error -result "*: Too many unnamed arguments, or incorrectly u*" -output "" -match glob + tests tepam-proccall.nun.noarg.$c.4 "Procedure calls, UNN, no arguments defined, $c, 3" \ + -variations { -Parameter2} \ + -body "Procedure_Arg_0$c %1" \ + -returnCodes error -result "*: Argument '%1' not known*" -output "" -match glob + } + + # Unnamed argument (1) without default value: + + tepam::procedure Procedure_Arg_1 { + -args { + {Arg1} + } + } { + return "Arg1:$Arg1" + } + + tests tepam-proccall.nun.1un.0 "Procedure calls, UNN, one argument without default value, 0" \ + -body "Procedure_Arg_1" \ + -returnCodes error -result "*: Required argument is missing: Arg1*" -output "" -match glob + tests tepam-proccall.nun.1un.1 "Procedure calls, UNN, one argument without default value, 1" \ + -body "Procedure_Arg_1 --" \ + -returnCodes error -result "*: Required argument is missing: Arg1*" -output "" -match glob + tests tepam-proccall.nun.1un.2 "Procedure calls, UNN, one argument without default value, 2" \ + -variations {abc 123 {} {asd asdf {xx 123 34}} } \ + -body "Procedure_Arg_1 \"%1\"" \ + -result "Arg1:%1" -output "" + tests tepam-proccall.nun.1un.3 "Procedure calls, UNN, one argument without default value, 3" \ + -variations {abc 123 "" "{asd asdf {xx 123 34}}"} \ + -body "Procedure_Arg_1 -- \"%1\"" \ + -result "Arg1:%1" -output "" + tests tepam-proccall.nun.1un.4 "Procedure calls, UNN, one argument without default value, 4" \ + -variations { abc 123 "" "{asd asdf {xx 123 34}}"} \ + -body "Procedure_Arg_1 -Arg1 \"%1\"" \ + -result "Arg1:%1" -output "" + tests tepam-proccall.nun.1un.5 "Procedure calls, UNN, one argument without default value, 5" \ + -variations { abc 123 "" "{asd asdf {xx 123 34}}"} \ + -body "Procedure_Arg_1 -Arg1 \"%1\" --" \ + -result "Arg1:%1" -output "" + tests tepam-proccall.nun.1un.6 "Procedure calls, UNN, one argument without default value, 6" \ + -variations { Parameter2 "" ?} \ + -body "Procedure_Arg_1 Parameter1 \"%1\"" \ + -returnCodes error -result "*: Too many unnamed arguments:*" -output "" -match glob + tests tepam-proccall.nun.1un.7 "Procedure calls, UNN, one argument without default value, 7" \ + -variations { -Parameter2} \ + -body "Procedure_Arg_1 Parameter1 \"%1\"" \ + -returnCodes error -result "*: Too many unnamed arguments, or incorrectly u*" -output "" -match glob + tests tepam-proccall.nun.1un.8 "Procedure calls, UNN, one argument without default value, 8" \ + -variations { -Parameter2} \ + -body "Procedure_Arg_1 -- Parameter1 \"%1\"" \ + -returnCodes error -result "*: Too many unnamed arguments, or incorrectly u*" -output "" -match glob + + # Unnamed arguments (2) without default value: + + tepam::procedure Procedure_Arg_2b { + -args { + {Arg1} + {Arg2} + } + } { + return "Arg1:$Arg1, Arg2:$Arg2" + } + + tests tepam-proccall.nun.2un.0 "Procedure calls, UNN, two argument without default value, 0" \ + -body "Procedure_Arg_2b" \ + -returnCodes error -result "*: Required argument is missing: Arg1*" -output "" -match glob + tests tepam-proccall.nun.2un.1 "Procedure calls, UNN, two argument without default value, 0" \ + -body "Procedure_Arg_2b --" \ + -returnCodes error -result "*: Required argument is missing: Arg1" -output "" -match glob + tests tepam-proccall.nun.2un.2 "Procedure calls, UNN, two argument without default value, 0" \ + -variations { abc 123 "" "{asd asdf {xx 123 34}}"} \ + -body "Procedure_Arg_2b \"%1\"" \ + -returnCodes error -result "*: Required argument is missing: Arg2*" -output "" -match glob + tests tepam-proccall.nun.2un.3 "Procedure calls, UNN, two argument without default value, 0" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2b \"%1\" \"%2\"" \ + -result "Arg1:%1, Arg2:%2" -output "" + + # Unnamed arguments partitially with default value: + + tepam::procedure Procedure_Arg_2 { + -args { + {Arg1} + {Arg2 -default 2} + } + } { + return "Arg1:$Arg1, Arg2:$Arg2" + } + + tests tepam-proccall.nun.1dun1un.0 "Procedure calls, UNN, two argument, one with default value, 0" \ + -body "Procedure_Arg_2" \ + -returnCodes error -result "*: Required argument is missing: Arg1*" -output "" -match glob + tests tepam-proccall.nun.1dun1un.1 "Procedure calls, UNN, two argument, one with default value, 0" \ + -variations {abc 123 "" {asd asdf {xx 123 34}}} \ + -body "Procedure_Arg_2 \"%1\"" \ + -result "Arg1:%1, Arg2:2" -output "" + tests tepam-proccall.nun.1dun1un.2 "Procedure calls, UNN, two argument, one with default value, 0" \ + -variations { Parameter2 -Parameter2 "" ?} \ + -body "Procedure_Arg_2 Parameter1 \"%1\"" \ + -result "Arg1:Parameter1, Arg2:%1" -output "" + tests tepam-proccall.nun.1dun1un.3 "Procedure calls, UNN, two argument, one with default value, 0" \ + -variations { Parameter2 "" ?} \ + -body "Procedure_Arg_2 Parameter1 Parameter2 \"%1\"" \ + -returnCodes error -result "*: Too many unnamed arguments:*" -output "" -match glob + tests tepam-proccall.nun.1dun1un.4 "Procedure calls, UNN, two argument, one with default value, 0" \ + -variations { -Parameter2} \ + -body "Procedure_Arg_2 Parameter1 Parameter2 \"%1\"" \ + -returnCodes error -result "*: Too many unnamed arguments, or incorrectly u*" -output "" -match glob + + # Unnamed arguments with default value: + + tepam::procedure Procedure_Arg_2a { + -args { + {Arg1 -default 1} + {Arg2 -default 2} + } + } { + return "Arg1:$Arg1, Arg2:$Arg2" + } + + tests tepam-proccall.nun.2dun.0 "Procedure calls, UNN, two argument with default values, 0" \ + -body "Procedure_Arg_2a" \ + -result "Arg1:1, Arg2:2" -output "" + tests tepam-proccall.nun.2dun.1 "Procedure calls, UNN, two argument with default values, 0" \ + -variations { abc 123 "" "{asd asdf {xx 123 34}}"} \ + -body "Procedure_Arg_2a \"%1\"" \ + -result "Arg1:%1, Arg2:2" -output "" + tests tepam-proccall.nun.2dun.2 "Procedure calls, UNN, two argument with default values, 0" \ + -variations { Parameter2 -Parameter2 "" ?} \ + -body "Procedure_Arg_2a Parameter1 \"%1\"" \ + -result "Arg1:Parameter1, Arg2:%1" -output "" + tests tepam-proccall.nun.2dun.3 "Procedure calls, UNN, two argument with default values, 0" \ + -variations { Parameter2 "" ?} \ + -body "Procedure_Arg_2a Parameter1 Parameter2 \"%1\"" \ + -returnCodes error -result "*: Too many unnamed arguments:*" -output "" -match glob + tests tepam-proccall.nun.2dun.4 "Procedure calls, UNN, two argument with default values, 0" \ + -variations { -Parameter2} \ + -body "Procedure_Arg_2a Parameter1 Parameter2 \"%1\"" \ + -returnCodes error -result "*: Too many unnamed arguments, or incorrectly u*" -output "" -match glob + + # One named and one unnamed argument, without default values (1) + + tepam::procedure Procedure_Arg_2d { + -args { + {-Arg1} + {Arg2} + } + } { + return "Arg1:$Arg1, Arg2:$Arg2" + } + + tests tepam-proccall.nun.1un1n.0 "Procedure calls, UNN, one unnamed and one named argument, 0" \ + -body "Procedure_Arg_2d" \ + -returnCodes error -result "*Required argument is missing: Arg1*" -output "" -match glob + tests tepam-proccall.nun.1un1n.1 "Procedure calls, UNN, one unnamed and one named argument, 1" \ + -variations { abc 123 "" "{asd asdf {xx 123 34}}"} \ + -body "Procedure_Arg_2d \"%1\"" \ + -returnCodes error -result "*Required argument is missing: Arg1*" -output "" -match glob + tests tepam-proccall.nun.1un1n.2 "Procedure calls, UNN, one unnamed and one named argument, 2" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2d \"%1\" \"%2\"" \ + -returnCodes error -result "*: Too many unnamed arguments: *" -output "" -match glob + tests tepam-proccall.nun.1un1n.3 "Procedure calls, UNN, one unnamed and one named argument, 3" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2d -Arg1 \"%1\" \"%2\"" \ + -result "Arg1:%1, Arg2:%2" -output "" + tests tepam-proccall.nun.1un1n.4 "Procedure calls, UNN, one unnamed and one named argument, 4" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2d -Arg1 \"%1\" -Arg2 \"%2\"" \ + -result "Arg1:%1, Arg2:%2" -output "" + tests tepam-proccall.nun.1un1n.5 "Procedure calls, UNN, one unnamed and one named argument, 5" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2d -Arg2 \"%2\" -Arg1 \"%1\"" \ + -result "Arg1:%1, Arg2:%2" -output "" + + # One named and one unnamed argument, without default values (2) + + tepam::procedure Procedure_Arg_2e { + -args { + {Arg2} + {-Arg1} + } + } { + return "Arg1:$Arg1, Arg2:$Arg2" + } + + tests tepam-proccall.nun.1un1n.6 "Procedure calls, UNN, one unnamed and one named argument, 6" \ + -body "Procedure_Arg_2d" \ + -returnCodes error -result "*: Required argument is missing: Arg1" -output "" -match glob + tests tepam-proccall.nun.1un1n.7 "Procedure calls, UNN, one unnamed and one named argument, 7" \ + -variations { abc 123 "" "{asd asdf {xx 123 34}}"} \ + -body "Procedure_Arg_2d \"%1\"" \ + -returnCodes error -result "*: Required argument is missing: Arg1*" -output "" -match glob + tests tepam-proccall.nun.1un1n.8 "Procedure calls, UNN, one unnamed and one named argument, 8" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2d \"%1\" \"%2\"" \ + -returnCodes error -result "*: Too many unnamed arguments*" -output "" -match glob + tests tepam-proccall.nun.1un1n.9 "Procedure calls, UNN, one unnamed and one named argument, 9" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2d -Arg1 \"%1\" \"%2\"" \ + -result "Arg1:%1, Arg2:%2" -output "" + tests tepam-proccall.nun.1un1n.10 "Procedure calls, UNN, one unnamed and one named argument, 10" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2d -Arg1 \"%1\" -Arg2 \"%2\"" \ + -result "Arg1:%1, Arg2:%2" -output "" + tests tepam-proccall.nun.1un1n.11 "Procedure calls, UNN, one unnamed and one named argument, 11" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2d -Arg2 \"%2\" -Arg1 \"%1\"" \ + -result "Arg1:%1, Arg2:%2" -output "" + + # Two named arguments, without default values + + tepam::procedure Procedure_Arg_2c { + -args { + {-Arg1} + {-Arg2} + } + } { + return "Arg1:$Arg1, Arg2:$Arg2" + } + + tests tepam-proccall.nun.2n.0 "Procedure calls, UNN, two named argument, 0" \ + -body "Procedure_Arg_2c" \ + -returnCodes error -result "*Required argument is missing: Arg1*" -output "" -match glob + tests tepam-proccall.nun.2n.1 "Procedure calls, UNN, two named argument, 1" \ + -variations { abc 123 "" "{asd asdf {xx 123 34}}"} \ + -body "Procedure_Arg_2c -Arg1 \"%1\"" \ + -returnCodes error -result "*Required argument is missing: Arg2*" -output "" -match glob + tests tepam-proccall.nun.2n.2 "Procedure calls, UNN, two named argument, 2" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2c -Arg1 \"%1\" -Arg2 \"%2\"" \ + -result "Arg1:%1, Arg2:%2" -output "" + tests tepam-proccall.nun.2n.3 "Procedure calls, UNN, two named argument, 3" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -body "Procedure_Arg_2c -Arg2 \"%2\" -Arg1 \"%1\"" \ + -result "Arg1:%1, Arg2:%2" -output "" + tests tepam-proccall.nun.2n.4 "Procedure calls, UNN, two named argument, 4" \ + -variations {a "" {}} \ + -variations {b "" 123} \ + -variations {c "" {}} \ + -body "Procedure_Arg_2c \"%3\" -Arg1 \"%1\" -Arg2 \"%2\"" \ + -returnCodes error -result "*: Too many unnamed arguments: *" -output "" -match glob + + # Multiple arguments - One unnamed argument + + tepam::procedure Procedure_Multiple_Arg3 { + -args { + {Arg -multiple} + } + } { + return $Arg + } + + tests tepam-proccall.nun.1mu.0 "Procedure calls, UNN, one unnamed multiple argument, 0" \ + -body "Procedure_Multiple_Arg3" \ + -returnCodes error -result "*Required argument is missing: Arg*" -output "" -match glob + tests tepam-proccall.nun.1mu.1 "Procedure calls, UNN, one unnamed multiple argument, 1" \ + -body "Procedure_Multiple_Arg3 Hello" \ + -result "Hello" -output "" + tests tepam-proccall.nun.1mu.2 "Procedure calls, UNN, one unnamed multiple argument, 2" \ + -body "Procedure_Multiple_Arg3 {Hello world}" \ + -result "{Hello world}" -output "" + tests tepam-proccall.nun.1mu.3 "Procedure calls, UNN, one unnamed multiple argument, 3" \ + -body "Procedure_Multiple_Arg3 {Hello my} world" \ + -result "{Hello my} world" -output "" + tests tepam-proccall.nun.1mu.4 "Procedure calls, UNN, one unnamed multiple argument, 4" \ + -body "Procedure_Multiple_Arg3 Hello {my world}" \ + -result "Hello {my world}" -output "" + tests tepam-proccall.nun.1mu.5 "Procedure calls, UNN, one unnamed multiple argument, 5" \ + -body "Procedure_Multiple_Arg3 {Hello my} {nice world}" \ + -result "{Hello my} {nice world}" -output "" + tests tepam-proccall.nun.1mu.6 "Procedure calls, UNN, one unnamed multiple argument, 6" \ + -body "Procedure_Multiple_Arg3 {Hello my} {nice world,} {how are} you" \ + -result "{Hello my} {nice world,} {how are} you" -output "" + + # Multiple arguments - Two unnamed argument, both not optional + + tepam::procedure Procedure_Multiple_Arg2a { + -args { + {Arg1} + {Arg2 -multiple} + } + } { + return $Arg1:$Arg2 + } + + tests tepam-proccall.nun.1mu1u.0 "Procedure calls, UNN, two unnamed argument, one is multiple, 0" \ + -body "Procedure_Multiple_Arg2a" \ + -returnCodes error -result "*Required argument is missing: Arg*" -output "" -match glob + tests tepam-proccall.nun.1mu1u.1 "Procedure calls, UNN, two unnamed argument, one is multiple, 1" \ + -body "Procedure_Multiple_Arg2a Message" \ + -returnCodes error -result "*Required argument is missing: Arg*" -output "" -match glob + tests tepam-proccall.nun.1mu1u.2 "Procedure calls, UNN, two unnamed argument, one is multiple, 2" \ + -body "Procedure_Multiple_Arg2a Message Hello" \ + -result "Message:Hello" -output "" + tests tepam-proccall.nun.1mu1u.3 "Procedure calls, UNN, two unnamed argument, one is multiple, 3" \ + -body "Procedure_Multiple_Arg2a Message {Hello world}" \ + -result "Message:{Hello world}" -output "" + tests tepam-proccall.nun.1mu1u.4 "Procedure calls, UNN, two unnamed argument, one is multiple, 4" \ + -body "Procedure_Multiple_Arg2a Message Hello world" \ + -result "Message:Hello world" -output "" + tests tepam-proccall.nun.1mu1u.5 "Procedure calls, UNN, two unnamed argument, one is multiple, 7" \ + -body "Procedure_Multiple_Arg2a Message Hello {my world}" \ + -result "Message:Hello {my world}" -output "" + tests tepam-proccall.nun.1mu1u.6 "Procedure calls, UNN, two unnamed argument, one is multiple, 8" \ + -body "Procedure_Multiple_Arg2a Message {Hello my} {nice world}" \ + -result "Message:{Hello my} {nice world}" -output "" + tests tepam-proccall.nun.1mu1u.7 "Procedure calls, UNN, two unnamed argument, one is multiple, 9" \ + -body "Procedure_Multiple_Arg2a Message {Hello my} {nice world,} {how are} you" \ + -result "Message:{Hello my} {nice world,} {how are} you" -output "" + + # Multiple arguments - One named argument + + tepam::procedure Procedure_Multiple_Arg3 { + -args { + {-Arg -multiple} + } + } { + return $Arg + } + + tests tepam-proccall.nun.1mn.0 "Procedure calls, UNN, one named multiple argument, 0" \ + -body "Procedure_Multiple_Arg3" \ + -returnCodes error -result "*Required argument is missing: Arg*" -output "" -match glob + tests tepam-proccall.nun.1mn.1 "Procedure calls, UNN, one named multiple argument, 1" \ + -body "Procedure_Multiple_Arg3 -Arg Hello" \ + -result "Hello" -output "" + tests tepam-proccall.nun.1mn.2 "Procedure calls, UNN, one named multiple argument, 2" \ + -body "Procedure_Multiple_Arg3 -Arg Hello world" \ + -returnCodes error -result "*: Too many unnamed arguments: *" -output "" -match glob + tests tepam-proccall.nun.1mn.3 "Procedure calls, UNN, one named multiple argument, 3" \ + -body "Procedure_Multiple_Arg3 -Arg {Hello world}" \ + -result "{Hello world}" -output "" + tests tepam-proccall.nun.1mn.4 "Procedure calls, UNN, one named multiple argument, 4" \ + -body "Procedure_Multiple_Arg3 -Arg Hello -Arg world" \ + -result "Hello world" -output "" + tests tepam-proccall.nun.1mn.5 "Procedure calls, UNN, one named multiple argument, 5" \ + -body "Procedure_Multiple_Arg3 -Arg {Hello my} -Arg world" \ + -result "{Hello my} world" -output "" + tests tepam-proccall.nun.1mn.6 "Procedure calls, UNN, one named multiple argument, 6" \ + -body "Procedure_Multiple_Arg3 -Arg Hello -Arg {my world}" \ + -result "Hello {my world}" -output "" + tests tepam-proccall.nun.1mn.7 "Procedure calls, UNN, one named multiple argument, 7" \ + -body "Procedure_Multiple_Arg3 -Arg {Hello my} -Arg {nice world}" \ + -result "{Hello my} {nice world}" -output "" + tests tepam-proccall.nun.1mn.8 "Procedure calls, UNN, one named multiple argument, 8" \ + -body "Procedure_Multiple_Arg3 -Arg {Hello my} -Arg {nice world,} -Arg {how are} -Arg you" \ + -result "{Hello my} {nice world,} {how are} you" -output "" + +######## That's all ######## + +::tcltest::cleanupTests +return + +########################################################################## +# Id: proc_call_arg_nun.test +# Modifications: +# +# Revision 1.1 2010/02/11 21:50:55 droll +# * TEPAM module checkin +########################################################################## + |