diff options
Diffstat (limited to 'tests/registry.test')
-rw-r--r-- | tests/registry.test | 288 |
1 files changed, 110 insertions, 178 deletions
diff --git a/tests/registry.test b/tests/registry.test index 0f78212..cbca4fd 100644 --- a/tests/registry.test +++ b/tests/registry.test @@ -19,7 +19,7 @@ testConstraint reg 0 if {[testConstraint win]} { if {![catch { ::tcltest::loadTestedCommands - set ::regver [package require registry 1.3.1] + package require registry }]} { testConstraint reg 1 } @@ -30,35 +30,17 @@ testConstraint english [expr { [llength [info commands testlocale]] && [string match "English*" [testlocale all ""]] }] - -test registry-1.0 {check if we are testing the right dll} {win reg} { - set ::regver -} {1.3.1} + test registry-1.1 {argument parsing for registry command} {win reg} { list [catch {registry} msg] $msg -} {1 {wrong # args: should be "registry ?-32bit|-64bit? option ?arg ...?"}} -test registry-1.1a {argument parsing for registry command} {win reg} { - list [catch {registry -32bit} msg] $msg -} {1 {wrong # args: should be "registry ?-32bit|-64bit? option ?arg ...?"}} -test registry-1.1b {argument parsing for registry command} {win reg} { - list [catch {registry -64bit} msg] $msg -} {1 {wrong # args: should be "registry ?-32bit|-64bit? option ?arg ...?"}} +} {1 {wrong # args: should be "registry option ?arg arg ...?"}} test registry-1.2 {argument parsing for registry command} {win reg} { list [catch {registry foo} msg] $msg } {1 {bad option "foo": must be broadcast, delete, get, keys, set, type, or values}} -test registry-1.2a {argument parsing for registry command} {win reg} { - list [catch {registry -33bit foo} msg] $msg -} {1 {bad mode "-33bit": must be -32bit or -64bit}} test registry-1.3 {argument parsing for registry command} {win reg} { list [catch {registry d} msg] $msg } {1 {wrong # args: should be "registry delete keyName ?valueName?"}} -test registry-1.3a {argument parsing for registry command} {win reg} { - list [catch {registry -32bit d} msg] $msg -} {1 {wrong # args: should be "registry -32bit delete keyName ?valueName?"}} -test registry-1.3b {argument parsing for registry command} {win reg} { - list [catch {registry -64bit d} msg] $msg -} {1 {wrong # args: should be "registry -64bit delete keyName ?valueName?"}} test registry-1.4 {argument parsing for registry command} {win reg} { list [catch {registry delete} msg] $msg } {1 {wrong # args: should be "registry delete keyName ?valueName?"}} @@ -69,12 +51,6 @@ test registry-1.5 {argument parsing for registry command} {win reg} { test registry-1.6 {argument parsing for registry command} {win reg} { list [catch {registry g} msg] $msg } {1 {wrong # args: should be "registry get keyName valueName"}} -test registry-1.6a {argument parsing for registry command} {win reg} { - list [catch {registry -32bit g} msg] $msg -} {1 {wrong # args: should be "registry -32bit get keyName valueName"}} -test registry-1.6b {argument parsing for registry command} {win reg} { - list [catch {registry -64bit g} msg] $msg -} {1 {wrong # args: should be "registry -64bit get keyName valueName"}} test registry-1.7 {argument parsing for registry command} {win reg} { list [catch {registry get} msg] $msg } {1 {wrong # args: should be "registry get keyName valueName"}} @@ -88,12 +64,6 @@ test registry-1.9 {argument parsing for registry command} {win reg} { test registry-1.10 {argument parsing for registry command} {win reg} { list [catch {registry k} msg] $msg } {1 {wrong # args: should be "registry keys keyName ?pattern?"}} -test registry-1.10a {argument parsing for registry command} {win reg} { - list [catch {registry -32bit k} msg] $msg -} {1 {wrong # args: should be "registry -32bit keys keyName ?pattern?"}} -test registry-1.10b {argument parsing for registry command} {win reg} { - list [catch {registry -64bit k} msg] $msg -} {1 {wrong # args: should be "registry -64bit keys keyName ?pattern?"}} test registry-1.11 {argument parsing for registry command} {win reg} { list [catch {registry keys} msg] $msg } {1 {wrong # args: should be "registry keys keyName ?pattern?"}} @@ -104,12 +74,6 @@ test registry-1.12 {argument parsing for registry command} {win reg} { test registry-1.13 {argument parsing for registry command} {win reg} { list [catch {registry s} msg] $msg } {1 {wrong # args: should be "registry set keyName ?valueName data ?type??"}} -test registry-1.13a {argument parsing for registry command} {win reg} { - list [catch {registry -32bit s} msg] $msg -} {1 {wrong # args: should be "registry -32bit set keyName ?valueName data ?type??"}} -test registry-1.13b {argument parsing for registry command} {win reg} { - list [catch {registry -64bit s} msg] $msg -} {1 {wrong # args: should be "registry -64bit set keyName ?valueName data ?type??"}} test registry-1.14 {argument parsing for registry command} {win reg} { list [catch {registry set} msg] $msg } {1 {wrong # args: should be "registry set keyName ?valueName data ?type??"}} @@ -123,12 +87,6 @@ test registry-1.16 {argument parsing for registry command} {win reg} { test registry-1.17 {argument parsing for registry command} {win reg} { list [catch {registry t} msg] $msg } {1 {wrong # args: should be "registry type keyName valueName"}} -test registry-1.17a {argument parsing for registry command} {win reg} { - list [catch {registry -32bit t} msg] $msg -} {1 {wrong # args: should be "registry -32bit type keyName valueName"}} -test registry-1.17b {argument parsing for registry command} {win reg} { - list [catch {registry -64bit t} msg] $msg -} {1 {wrong # args: should be "registry -64bit type keyName valueName"}} test registry-1.18 {argument parsing for registry command} {win reg} { list [catch {registry type} msg] $msg } {1 {wrong # args: should be "registry type keyName valueName"}} @@ -142,12 +100,6 @@ test registry-1.20 {argument parsing for registry command} {win reg} { test registry-1.21 {argument parsing for registry command} {win reg} { list [catch {registry v} msg] $msg } {1 {wrong # args: should be "registry values keyName ?pattern?"}} -test registry-1.21a {argument parsing for registry command} {win reg} { - list [catch {registry -32bit v} msg] $msg -} {1 {wrong # args: should be "registry -32bit values keyName ?pattern?"}} -test registry-1.21b {argument parsing for registry command} {win reg} { - list [catch {registry -64bit v} msg] $msg -} {1 {wrong # args: should be "registry -64bit values keyName ?pattern?"}} test registry-1.22 {argument parsing for registry command} {win reg} { list [catch {registry values} msg] $msg } {1 {wrong # args: should be "registry values keyName ?pattern?"}} @@ -159,10 +111,10 @@ test registry-2.1 {DeleteKey: bad key} {win reg} { list [catch {registry delete foo} msg] $msg } {1 {bad root name "foo": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA}} test registry-2.2 {DeleteKey: bad key} {win reg} { - list [catch {registry delete HKEY_CLASSES_ROOT} msg] $msg + list [catch {registry delete HKEY_CURRENT_USER} msg] $msg } {1 {bad key: cannot delete root keys}} test registry-2.3 {DeleteKey: bad key} {win reg} { - list [catch {registry delete HKEY_CLASSES_ROOT\\} msg] $msg + list [catch {registry delete HKEY_CURRENT_USER\\} msg] $msg } {1 {bad key: cannot delete root keys}} test registry-2.4 {DeleteKey: subkey at root level} {win reg} { registry set HKEY_CURRENT_USER\\TclFoobar @@ -506,180 +458,160 @@ test registry-6.20 {GetValue: values with Unicode strings with embedded nulls} { set result } "foo ba r baz" test registry-6.21 {GetValue: very long value names and values} {pcOnly reg} { - registry set HKEY_CURRENT_USER\\TclFoobar [string repeat k 16383] [string repeat x 16383] multi_sz - set result [registry get HKEY_CURRENT_USER\\TclFoobar [string repeat k 16383]] + registry set HKEY_CURRENT_USER\\TclFoobar [string repeat k 199] [string repeat x 199] multi_sz + set result [registry get HKEY_CURRENT_USER\\TclFoobar [string repeat k 199]] registry delete HKEY_CURRENT_USER\\TclFoobar set result -} [string repeat x 16383] +} [string repeat x 199] -test registry-7.1 {GetValueNames: bad key} -constraints {win reg english} -setup { +test registry-7.1 {GetValueNames: bad key} {win reg english} { registry delete HKEY_CURRENT_USER\\TclFoobar -} -body { - registry values HKEY_CURRENT_USER\\TclFoobar -} -returnCodes error -result {unable to open key: The system cannot find the file specified.} -test registry-7.2 {GetValueNames} -constraints {win reg} -setup { + list [catch {registry values HKEY_CURRENT_USER\\TclFoobar} msg] $msg +} {1 {unable to open key: The system cannot find the file specified.}} +test registry-7.2 {GetValueNames} {win reg} { registry delete HKEY_CURRENT_USER\\TclFoobar registry set HKEY_CURRENT_USER\\TclFoobar baz foobar -} -body { - registry values HKEY_CURRENT_USER\\TclFoobar -} -cleanup { + set result [registry values HKEY_CURRENT_USER\\TclFoobar] registry delete HKEY_CURRENT_USER\\TclFoobar -} -result baz -test registry-7.3 {GetValueNames} -constraints {win reg} -setup { + set result +} baz +test registry-7.3 {GetValueNames} {win reg} { registry delete HKEY_CURRENT_USER\\TclFoobar registry set HKEY_CURRENT_USER\\TclFoobar baz foobar1 registry set HKEY_CURRENT_USER\\TclFoobar blat foobar2 registry set HKEY_CURRENT_USER\\TclFoobar {} foobar3 -} -body { - lsort [registry values HKEY_CURRENT_USER\\TclFoobar] -} -cleanup { + set result [lsort [registry values HKEY_CURRENT_USER\\TclFoobar]] registry delete HKEY_CURRENT_USER\\TclFoobar -} -result {{} baz blat} -test registry-7.4 {GetValueNames: remote key} -constraints {win reg nonPortable english} -body { + set result +} {{} baz blat} +test registry-7.4 {GetValueNames: remote key} {win reg nonPortable english} { set hostname [info hostname] registry set \\\\$hostname\\HKEY_CURRENT_USER\\TclFoobar baz blat set result [registry values \\\\$hostname\\HKEY_CURRENT_USER\\TclFoobar] registry delete \\\\$hostname\\HKEY_CURRENT_USER\\TclFoobar set result -} -result baz -test registry-7.5 {GetValueNames: empty key} -constraints {win reg} -setup { +} baz +test registry-7.5 {GetValueNames: empty key} {win reg} { registry delete HKEY_CURRENT_USER\\TclFoobar registry set HKEY_CURRENT_USER\\TclFoobar -} -body { - registry values HKEY_CURRENT_USER\\TclFoobar -} -cleanup { + set result [registry values HKEY_CURRENT_USER\\TclFoobar] registry delete HKEY_CURRENT_USER\\TclFoobar -} -result {} -test registry-7.6 {GetValueNames: patterns} -constraints {win reg} -setup { + set result +} {} +test registry-7.6 {GetValueNames: patterns} {win reg} { registry delete HKEY_CURRENT_USER\\TclFoobar registry set HKEY_CURRENT_USER\\TclFoobar baz foobar1 registry set HKEY_CURRENT_USER\\TclFoobar blat foobar2 registry set HKEY_CURRENT_USER\\TclFoobar foo foobar3 -} -body { - lsort [registry values HKEY_CURRENT_USER\\TclFoobar b*] -} -cleanup { + set result [lsort [registry values HKEY_CURRENT_USER\\TclFoobar b*]] registry delete HKEY_CURRENT_USER\\TclFoobar -} -result {baz blat} -test registry-7.7 {GetValueNames: names with spaces} -constraints {win reg} -setup { + set result +} {baz blat} +test registry-7.7 {GetValueNames: names with spaces} {win reg} { registry delete HKEY_CURRENT_USER\\TclFoobar registry set HKEY_CURRENT_USER\\TclFoobar baz\ bar foobar1 registry set HKEY_CURRENT_USER\\TclFoobar blat foobar2 registry set HKEY_CURRENT_USER\\TclFoobar foo foobar3 -} -body { - lsort [registry values HKEY_CURRENT_USER\\TclFoobar b*] -} -cleanup { + set result [lsort [registry values HKEY_CURRENT_USER\\TclFoobar b*]] registry delete HKEY_CURRENT_USER\\TclFoobar -} -result {{baz bar} blat} + set result +} {{baz bar} blat} -test registry-8.1 {OpenSubKey} -constraints {win reg nonPortable english} \ - -body { - # This test will only succeed if the current user does not have - # registry access on the specified machine. - registry keys {\\mom\HKEY_LOCAL_MACHINE} - } -returnCodes error -result "unable to open key: Access is denied." -test registry-8.2 {OpenSubKey} -constraints {win reg} -setup { +test registry-8.1 {OpenSubKey} {win reg nonPortable english} { + # This test will only succeed if the current user does not have registry + # access on the specified machine. + list [catch {registry keys {\\mom\HKEY_LOCAL_MACHINE}} msg] $msg +} {1 {unable to open key: Access is denied.}} +test registry-8.2 {OpenSubKey} {win reg} { registry delete HKEY_CURRENT_USER\\TclFoobar registry set HKEY_CURRENT_USER\\TclFoobar -} -body { - registry keys HKEY_CURRENT_USER TclFoobar -} -cleanup { + set result [registry keys HKEY_CURRENT_USER TclFoobar] registry delete HKEY_CURRENT_USER\\TclFoobar -} -result {TclFoobar} -test registry-8.3 {OpenSubKey} -constraints {win reg english} -setup { + set result +} TclFoobar +test registry-8.3 {OpenSubKey} {win reg english} { registry delete HKEY_CURRENT_USER\\TclFoobar -} -body { - registry keys HKEY_CURRENT_USER\\TclFoobar -} -returnCodes error \ - -result "unable to open key: The system cannot find the file specified." + list [catch {registry keys HKEY_CURRENT_USER\\TclFoobar} msg] $msg +} {1 {unable to open key: The system cannot find the file specified.}} -test registry-9.1 {ParseKeyName: bad keys} -constraints {win reg} -body { - registry values \\ -} -returnCodes error -result "bad key \"\\\": must start with a valid root" -test registry-9.2 {ParseKeyName: bad keys} -constraints {win reg} -body { - registry values \\foobar -} -returnCodes error -result {bad key "\foobar": must start with a valid root} -test registry-9.3 {ParseKeyName: bad keys} -constraints {win reg} -body { - registry values \\\\ -} -returnCodes error -result {bad root name "": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA} -test registry-9.4 {ParseKeyName: bad keys} -constraints {win reg} -body { - registry values \\\\\\ -} -returnCodes error -result {bad root name "": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA} -test registry-9.5 {ParseKeyName: bad keys} -constraints {win reg english nt} -body { - registry values \\\\\\HKEY_CLASSES_ROOT -} -returnCodes error -result {unable to open key: The network address is invalid.} -test registry-9.6 {ParseKeyName: bad keys} -constraints {win reg} -body { - registry values \\\\gaspode -} -returnCodes error -result {bad root name "": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA} -test registry-9.7 {ParseKeyName: bad keys} -constraints {win reg} -body { - registry values foobar -} -returnCodes error -result {bad root name "foobar": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA} -test registry-9.8 {ParseKeyName: null keys} -constraints {win reg} -body { - registry delete HKEY_CLASSES_ROOT\\ -} -returnCodes error -result {bad key: cannot delete root keys} -test registry-9.9 {ParseKeyName: null keys} \ - -constraints {win reg english} \ - -body {registry keys HKEY_CLASSES_ROOT\\TclFoobar\\baz} \ - -returnCodes error \ - -result {unable to open key: The system cannot find the file specified.} +test registry-9.1 {ParseKeyName: bad keys} {win reg} { + list [catch {registry values \\} msg] $msg +} "1 {bad key \"\\\": must start with a valid root}" +test registry-9.2 {ParseKeyName: bad keys} {win reg} { + list [catch {registry values \\foobar} msg] $msg +} {1 {bad key "\foobar": must start with a valid root}} +test registry-9.3 {ParseKeyName: bad keys} {win reg} { + list [catch {registry values \\\\} msg] $msg +} {1 {bad root name "": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA}} +test registry-9.4 {ParseKeyName: bad keys} {win reg} { + list [catch {registry values \\\\\\} msg] $msg +} {1 {bad root name "": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA}} +test registry-9.5 {ParseKeyName: bad keys} {win reg english nt} { + list [catch {registry values \\\\\\HKEY_CURRENT_USER} msg] $msg +} {1 {unable to open key: The network address is invalid.}} +test registry-9.6 {ParseKeyName: bad keys} {win reg} { + list [catch {registry values \\\\gaspode} msg] $msg +} {1 {bad root name "": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA}} +test registry-9.7 {ParseKeyName: bad keys} {win reg} { + list [catch {registry values foobar} msg] $msg +} {1 {bad root name "foobar": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA}} +test registry-9.8 {ParseKeyName: null keys} {win reg} { + list [catch {registry delete HKEY_CURRENT_USER\\} msg] $msg +} {1 {bad key: cannot delete root keys}} +test registry-9.9 {ParseKeyName: null keys} {win reg english} { + list [catch {registry keys HKEY_CURRENT_USER\\TclFoobar\\baz} msg] $msg +} {1 {unable to open key: The system cannot find the file specified.}} -test registry-10.1 {RecursiveDeleteKey} -constraints {win reg} -setup { +test registry-10.1 {RecursiveDeleteKey} {win reg} { registry delete HKEY_CURRENT_USER\\TclFoobar -} -body { registry set HKEY_CURRENT_USER\\TclFoobar\\test1 registry set HKEY_CURRENT_USER\\TclFoobar\\test2\\test3 registry delete HKEY_CURRENT_USER\\TclFoobar set result [registry keys HKEY_CURRENT_USER TclFoobar] set result -} -result {} -test registry-10.2 {RecursiveDeleteKey} -constraints {win reg} -setup { +} {} +test registry-10.2 {RecursiveDeleteKey} {win reg} { registry delete HKEY_CURRENT_USER\\TclFoobar registry set HKEY_CURRENT_USER\\TclFoobar\\test1 registry set HKEY_CURRENT_USER\\TclFoobar\\test2\\test3 -} -body { - registry delete HKEY_CURRENT_USER\\TclFoobar\\test2\\test4 -} -cleanup { + set result [registry delete HKEY_CURRENT_USER\\TclFoobar\\test2\\test4] registry delete HKEY_CURRENT_USER\\TclFoobar -} -result {} + set result +} {} -test registry-11.1 {SetValue: recursive creation} \ - -constraints {win reg} -setup { - registry delete HKEY_CURRENT_USER\\TclFoobar - } -body { - registry set HKEY_CURRENT_USER\\TclFoobar\\baz blat foobar - set result [registry get HKEY_CURRENT_USER\\TclFoobar\\baz blat] - } -result {foobar} -test registry-11.2 {SetValue: modification} -constraints {win reg} \ - -setup { - registry delete HKEY_CURRENT_USER\\TclFoobar - } -body { - registry set HKEY_CURRENT_USER\\TclFoobar\\baz blat foobar - registry set HKEY_CURRENT_USER\\TclFoobar\\baz blat frob - set result [registry get HKEY_CURRENT_USER\\TclFoobar\\baz blat] - } -result {frob} -test registry-11.3 {SetValue: failure} \ - -constraints {win reg nonPortable english} \ - -body { - # This test will only succeed if the current user does not have - # registry access on the specified machine. - registry set {\\mom\HKEY_CURRENT_USER\TclFoobar} bar foobar - } -returnCodes error -result {unable to open key: Access is denied.} +test registry-11.1 {SetValue: recursive creation} {win reg} { + registry delete HKEY_CURRENT_USER\\TclFoobar + registry set HKEY_CURRENT_USER\\TclFoobar\\baz blat foobar + set result [registry get HKEY_CURRENT_USER\\TclFoobar\\baz blat] +} foobar +test registry-11.2 {SetValue: modification} {win reg} { + registry delete HKEY_CURRENT_USER\\TclFoobar + registry set HKEY_CURRENT_USER\\TclFoobar\\baz blat foobar + registry set HKEY_CURRENT_USER\\TclFoobar\\baz blat frob + set result [registry get HKEY_CURRENT_USER\\TclFoobar\\baz blat] +} frob +test registry-11.3 {SetValue: failure} {win reg nonPortable english} { + # This test will only succeed if the current user does not have registry + # access on the specified machine. + list [catch {registry set {\\mom\HKEY_CURRENT_USER\TclFoobar} bar foobar} msg] $msg +} {1 {unable to open key: Access is denied.}} + +test registry-12.1 {BroadcastValue} {win reg} { + list [catch {registry broadcast} msg] $msg +} {1 {wrong # args: should be "registry broadcast keyName ?-timeout millisecs?"}} +test registry-12.2 {BroadcastValue} {win reg} { + list [catch {registry broadcast "" -time} msg] $msg +} {1 {wrong # args: should be "registry broadcast keyName ?-timeout millisecs?"}} +test registry-12.3 {BroadcastValue} {win reg} { + list [catch {registry broadcast "" - 500} msg] $msg +} {1 {wrong # args: should be "registry broadcast keyName ?-timeout millisecs?"}} +test registry-12.4 {BroadcastValue} {win reg} { + list [catch {registry broadcast {Environment}} msg] $msg +} {0 {1 0}} +test registry-12.5 {BroadcastValue} {win reg} { + list [catch {registry b {}} msg] $msg +} {0 {1 0}} -test registry-12.1 {BroadcastValue} -constraints {win reg} -body { - registry broadcast -} -returnCodes error -result "wrong # args: should be \"registry broadcast keyName ?-timeout milliseconds?\"" -test registry-12.2 {BroadcastValue} -constraints {win reg} -body { - registry broadcast "" -time -} -returnCodes error -result "wrong # args: should be \"registry broadcast keyName ?-timeout milliseconds?\"" -test registry-12.3 {BroadcastValue} -constraints {win reg} -body { - registry broadcast "" - 500 -} -returnCodes error -result "wrong # args: should be \"registry broadcast keyName ?-timeout milliseconds?\"" -test registry-12.4 {BroadcastValue} -constraints {win reg} -body { - registry broadcast {Environment} -} -result {1 0} -test registry-12.5 {BroadcastValue} -constraints {win reg} -body { - registry b {} -} -result {1 0} - # cleanup ::tcltest::cleanupTests return |