From a3a1c84aca5680e5cdd8d55e6693de0f3d5b2390 Mon Sep 17 00:00:00 2001 From: Alexandre Julliard Date: Tue, 15 Jan 2002 20:59:22 +0000 Subject: [PATCH] Added atom test script. --- dlls/kernel/Makefile.in | 6 +- dlls/kernel/tests/.cvsignore | 1 + dlls/kernel/tests/atom.pl | 167 +++++++++++++++++++++++++++++++++++ 3 files changed, 173 insertions(+), 1 deletion(-) create mode 100644 dlls/kernel/tests/.cvsignore create mode 100644 dlls/kernel/tests/atom.pl diff --git a/dlls/kernel/Makefile.in b/dlls/kernel/Makefile.in index b818bf61683..50fd6986f30 100644 --- a/dlls/kernel/Makefile.in +++ b/dlls/kernel/Makefile.in @@ -37,7 +37,11 @@ GLUE = utthunk.c EXTRASUBDIRS = \ messages \ - nls + nls \ + tests + +PLTESTS = \ + tests/atom.pl @MAKE_DLL_RULES@ diff --git a/dlls/kernel/tests/.cvsignore b/dlls/kernel/tests/.cvsignore new file mode 100644 index 00000000000..d91ba664e2b --- /dev/null +++ b/dlls/kernel/tests/.cvsignore @@ -0,0 +1 @@ +atom.ok diff --git a/dlls/kernel/tests/atom.pl b/dlls/kernel/tests/atom.pl new file mode 100644 index 00000000000..764f0ecf28d --- /dev/null +++ b/dlls/kernel/tests/atom.pl @@ -0,0 +1,167 @@ +################################################################ +# Tests for atom API calls + +use wine; +use winerror; + +################################################################ +# Declarations for functions we use in this script + +wine::declare( "kernel32", + GlobalAddAtomA => ["word", ["str"]], + GlobalAddAtomW => ["word", ["wstr"]], + GlobalFindAtomA => ["word", ["str"]], + GlobalFindAtomW => ["word", ["wstr"]], + GlobalDeleteAtom => ["word", ["word"]], + GlobalGetAtomNameA => ["int", ["word","ptr","int"]], + GlobalGetAtomNameW => ["int", ["word","ptr","int"]], +); + +my $name = "foobar"; + +################################################################ +# GlobalAddAtom/GlobalFindAtom + +# Add an atom +my $atom = GlobalAddAtomA( $name ); +ok( ($atom >= 0xc000) && ($atom <= 0xffff) && !defined($wine::err) ); + +# Verify that it can be found (or not) appropriately +ok( GlobalFindAtomA($name) == $atom ); +ok( GlobalFindAtomA(uc $name) == $atom ); +ok( !GlobalFindAtomA( "_" . $name ) ); + +# Add the same atom, specifying string as unicode; should +# find the first one, not add a new one +my $w_atom = GlobalAddAtomW( wc($name) ); +ok( $w_atom == $atom && !defined($wine::err) ); + +# Verify that it can be found (or not) appropriately via +# unicode name +ok( GlobalFindAtomW( wc($name)) == $atom ); +ok( GlobalFindAtomW( wc(uc($name)) ) == $atom ); +ok( !GlobalFindAtomW( wc("_" . $name) ) ); + +# Test integer atoms +# +# (0x0000 .. 0xbfff) should be valid; +# (0xc000 .. 0xffff) should be invalid + +# test limits +todo_wine +{ + ok( GlobalAddAtomA(0) == 0 && !defined($wine::err) ); + ok( GlobalAddAtomW(0) == 0 && !defined($wine::err) ); +}; +ok( GlobalAddAtomA(1) == 1 && !defined($wine::err) ); +ok( GlobalAddAtomW(1) == 1 && !defined($wine::err) ); +ok( GlobalAddAtomA(0xbfff) == 0xbfff && !defined($wine::err) ); +ok( GlobalAddAtomW(0xbfff) == 0xbfff && !defined($wine::err) ); +ok( !GlobalAddAtomA(0xc000) && ($wine::err == ERROR_INVALID_PARAMETER) ); +ok( !GlobalAddAtomW(0xc000) && ($wine::err == ERROR_INVALID_PARAMETER) ); +ok( !GlobalAddAtomA(0xffff) && ($wine::err == ERROR_INVALID_PARAMETER) ); +ok( !GlobalAddAtomW(0xffff) && ($wine::err == ERROR_INVALID_PARAMETER) ); + +# test some in between +for ($i = 0x0001; ($i <= 0xbfff); $i += 27) +{ + ok( GlobalAddAtomA($i) && !defined($wine::err) ); + ok( GlobalAddAtomW($i) && !defined($wine::err) ); +} +for ($i = 0xc000; ($i <= 0xffff); $i += 29) +{ + ok( !GlobalAddAtomA($i) && ($wine::err == ERROR_INVALID_PARAMETER) ); + ok( !GlobalAddAtomW($i) && ($wine::err == ERROR_INVALID_PARAMETER) ); +} + + +################################################################ +# GlobalGetAtomName + +# Get the name of the atom we added above +my $buf = "." x 20; +my $len = GlobalGetAtomNameA( $atom, \$buf, length ($buf) ); +ok( $len == length ($name) ); +ok( $buf eq ($name . "\x00" . ("." x (length ($buf) - length ($name) - 1))) ); +$buf = "." x 20; +ok( !GlobalGetAtomNameA( $atom, \$buf, 3 ) ); + +# Repeat, unicode-style +$buf = wc("." x 20); +$len = GlobalGetAtomNameW( $atom, \$buf, length ($buf) / 2 ); +ok( $len == wclen (wc ($name)) ); +todo_wine +{ + ok( $buf eq (wc ($name) . "\x00\x00" . ("." x (20 - 2 * (wclen (wc ($name)) + 1) ))) ); +}; +$buf = wc("." x 20); +ok( !GlobalGetAtomNameW( $atom, \$buf, 3 ) ); + +# Check error code returns +ok( !GlobalGetAtomNameA( $atom, $buf, 0 ) && $wine::err == ERROR_MORE_DATA ); +ok( !GlobalGetAtomNameA( $atom, $buf, -1 ) && $wine::err == ERROR_MORE_DATA ); +ok( !GlobalGetAtomNameW( $atom, $buf, 0 ) && $wine::err == ERROR_MORE_DATA ); +ok( !GlobalGetAtomNameW( $atom, $buf, -1 ) && $wine::err == ERROR_MORE_DATA ); + +# Test integer atoms +$buf = "a" x 10; +for ($i = 0; ($i <= 0xbfff); $i += 37) +{ + $len = GlobalGetAtomNameA( $i, \$buf, length ($buf) ); + if ($i) + { + ok( ($len > 1) && ($len < 7) ); + ok( $buf eq ("#$i\x00" . "a" x (10 - $len - 1) )); + } + else + { + todo_wine + { + ok( ($len > 1) && ($len < 7) ); + ok( $buf eq ("#$i\x00" . "a" x (10 - $len - 1) )); + }; + } +} + +################################################################ +# GlobalDeleteAtom + +$name = "barkbar"; +$n = 5; + +# First make sure it doesn't exist +$atom = GlobalAddAtomA( $name ); +while (!GlobalDeleteAtom( $atom )) { } + +# Now add it a number of times +for (1 .. $n) { $atom = GlobalAddAtomA( $name ); } + +# Make sure it's here +ok( GlobalFindAtomA( $name )); +ok( GlobalFindAtomW( wc($name) )); + +# That many deletions should succeed +for (1 .. $n) { ok( !GlobalDeleteAtom( $atom ) ); } + +# It should be gone now +ok( !GlobalFindAtomA($name) ); +ok( !GlobalFindAtomW( wc($name) )); + +# So this one should fail +ok( GlobalDeleteAtom( $atom ) == $atom && $wine::err == ERROR_INVALID_HANDLE ); + + +################################################################ +# Test error handling + +# ASCII +ok( ($atom = GlobalAddAtomA("a" x 255)) ); +ok( !GlobalDeleteAtom($atom) ); +ok( !GlobalAddAtomA( "a" x 256 ) && $wine::err == ERROR_INVALID_PARAMETER ); +ok( !GlobalFindAtomA( "b" x 256 ) && $wine::err == ERROR_INVALID_PARAMETER ); + +# Unicode +ok( ($atom = GlobalAddAtomW( wc("a" x 255) )) ); +ok( !GlobalDeleteAtom($atom) ); +ok( !GlobalAddAtomW( wc("a" x 256) ) && $wine::err == ERROR_INVALID_PARAMETER ); +ok( !GlobalFindAtomW( wc("b" x 256) ) && $wine::err == ERROR_INVALID_PARAMETER );