Index: tests/parameters.test =================================================================== diff -u -N -rf934951db464db1a6f39ac98290ecde17a466cd7 -r5425e020380d24f7e9d082ddc030478b93e894d2 --- tests/parameters.test (.../parameters.test) (revision f934951db464db1a6f39ac98290ecde17a466cd7) +++ tests/parameters.test (.../parameters.test) (revision 5425e020380d24f7e9d082ddc030478b93e894d2) @@ -1969,11 +1969,19 @@ ? {cc parameter_declaration} o ? {cc user_id} 4 - # new without list notation + # new with list notation ? {CC create cc -package_id 234 [list -parameter_declaration oo] -user_id 456} ::cc ? {cc package_id} 234 ? {cc parameter_declaration} oo ? {cc user_id} 456 + + xotcl::Class create KK -parameter {a b c d} + # new with (alternative) list notation + ? {KK create kk "-a\r234" "-b\n456" "-c\f543" "-d\nddd"} ::kk + ? {kk a} 234 + ? {kk b} 456 + ? {kk c} 543 + ? {kk d} ddd } #