git.oblomov.eu Git - wine/blob - dlls/kernel/tests/atom.pl

   1 ################################################################
   2 # Tests for atom API calls
   3
   4 use wine;
   5 use winerror;
   6
   7 ################################################################
   8 # Declarations for functions we use in this script
   9
  10 wine::declare( "kernel32",
  11                GlobalAddAtomA     => ["word", ["str"]],
  12                GlobalAddAtomW     => ["word", ["wstr"]],
  13                GlobalFindAtomA    => ["word", ["str"]],
  14                GlobalFindAtomW    => ["word", ["wstr"]],
  15                GlobalDeleteAtom   => ["word", ["word"]],
  16                GlobalGetAtomNameA => ["int",  ["word","ptr","int"]],
  17                GlobalGetAtomNameW => ["int",  ["word","ptr","int"]],
  18 );
  19
  20 my $name = "foobar";
  21
  22 ################################################################
  23 # GlobalAddAtom/GlobalFindAtom
  24
  25 # Add an atom
  26 my $atom = GlobalAddAtomA( $name );
  27 ok( ($atom >= 0xc000) && ($atom <= 0xffff) && !defined($wine::err) );
  28
  29 # Verify that it can be found (or not) appropriately
  30 ok( GlobalFindAtomA($name) == $atom );
  31 ok( GlobalFindAtomA(uc $name) == $atom );
  32 ok( !GlobalFindAtomA( "_" . $name ) );
  33
  34 # Add the same atom, specifying string as unicode; should
  35 # find the first one, not add a new one
  36 my $w_atom = GlobalAddAtomW( wc($name) );
  37 ok( $w_atom == $atom && !defined($wine::err) );
  38
  39 # Verify that it can be found (or not) appropriately via
  40 # unicode name
  41 ok( GlobalFindAtomW( wc($name)) == $atom );
  42 ok( GlobalFindAtomW( wc(uc($name)) ) == $atom );
  43 ok( !GlobalFindAtomW( wc("_" . $name) ) );
  44
  45 # Test integer atoms
  46 #
  47 # (0x0000 .. 0xbfff) should be valid;
  48 # (0xc000 .. 0xffff) should be invalid
  49
  50 # test limits
  51 todo_wine
  52 {
  53     ok( GlobalAddAtomA(0) == 0 && !defined($wine::err) );
  54     ok( GlobalAddAtomW(0) == 0 && !defined($wine::err) );
  55 };
  56 ok( GlobalAddAtomA(1) == 1 && !defined($wine::err) );
  57 ok( GlobalAddAtomW(1) == 1 && !defined($wine::err) );
  58 ok( GlobalAddAtomA(0xbfff) == 0xbfff && !defined($wine::err) );
  59 ok( GlobalAddAtomW(0xbfff) == 0xbfff && !defined($wine::err) );
  60 ok( !GlobalAddAtomA(0xc000) && ($wine::err == ERROR_INVALID_PARAMETER) );
  61 ok( !GlobalAddAtomW(0xc000) && ($wine::err == ERROR_INVALID_PARAMETER) );
  62 ok( !GlobalAddAtomA(0xffff) && ($wine::err == ERROR_INVALID_PARAMETER) );
  63 ok( !GlobalAddAtomW(0xffff) && ($wine::err == ERROR_INVALID_PARAMETER) );
  64
  65 # test some in between
  66 for ($i = 0x0001; ($i <= 0xbfff); $i += 27)
  67 {
  68     ok( GlobalAddAtomA($i) && !defined($wine::err) );
  69     ok( GlobalAddAtomW($i) && !defined($wine::err) );
  70 }
  71 for ($i = 0xc000; ($i <= 0xffff); $i += 29)
  72 {
  73     ok( !GlobalAddAtomA($i) && ($wine::err == ERROR_INVALID_PARAMETER) );
  74     ok( !GlobalAddAtomW($i) && ($wine::err == ERROR_INVALID_PARAMETER) );
  75 }
  76
  77
  78 ################################################################
  79 # GlobalGetAtomName
  80
  81 # Get the name of the atom we added above
  82 my $buf = "." x 20;
  83 my $len = GlobalGetAtomNameA( $atom, \$buf, length ($buf) );
  84 ok( $len == length ($name) );
  85 ok( $buf eq ($name . "\x00" . ("." x (length ($buf) - length ($name) - 1))) );
  86 $buf = "." x 20;
  87 ok( !GlobalGetAtomNameA( $atom, \$buf, 3 ) );
  88
  89 # Repeat, unicode-style
  90 $buf = wc("." x 20);
  91 $len = GlobalGetAtomNameW( $atom, \$buf, length ($buf) / 2 );
  92 ok( $len == wclen (wc ($name)) );
  93 todo_wine
  94 {
  95     ok( $buf eq (wc ($name) . "\x00\x00" . ("." x (20 - 2 * (wclen (wc ($name)) + 1) ))) );
  96 };
  97 $buf = wc("." x 20);
  98 ok( !GlobalGetAtomNameW( $atom, \$buf, 3 ) );
  99
 100 # Check error code returns
 101 ok( !GlobalGetAtomNameA( $atom, $buf,  0 ) && $wine::err == ERROR_MORE_DATA );
 102 ok( !GlobalGetAtomNameA( $atom, $buf, -1 ) && $wine::err == ERROR_MORE_DATA );
 103 ok( !GlobalGetAtomNameW( $atom, $buf,  0 ) && $wine::err == ERROR_MORE_DATA );
 104 ok( !GlobalGetAtomNameW( $atom, $buf, -1 ) && $wine::err == ERROR_MORE_DATA );
 105
 106 # Test integer atoms
 107 $buf = "a" x 10;
 108 for ($i = 0; ($i <= 0xbfff); $i += 37)
 109 {
 110     $len = GlobalGetAtomNameA( $i, \$buf, length ($buf) );
 111     if ($i)
 112     {
 113         ok( ($len > 1) && ($len < 7) );
 114         ok( $buf eq ("#$i\x00" . "a" x (10 - $len - 1) ));
 115     }
 116     else
 117     {
 118         todo_wine
 119         {
 120             ok( ($len > 1) && ($len < 7) );
 121             ok( $buf eq ("#$i\x00" . "a" x (10 - $len - 1) ));
 122         };
 123     }
 124 }
 125
 126 ################################################################
 127 # GlobalDeleteAtom
 128
 129 $name = "barkbar";
 130 $n = 5;
 131
 132 # First make sure it doesn't exist
 133 $atom = GlobalAddAtomA( $name );
 134 while (!GlobalDeleteAtom( $atom )) { }
 135
 136 # Now add it a number of times
 137 for (1 .. $n) { $atom = GlobalAddAtomA( $name ); }
 138
 139 # Make sure it's here
 140 ok( GlobalFindAtomA( $name ));
 141 ok( GlobalFindAtomW( wc($name) ));
 142
 143 # That many deletions should succeed
 144 for (1 .. $n) { ok( !GlobalDeleteAtom( $atom ) ); }
 145
 146 # It should be gone now
 147 ok( !GlobalFindAtomA($name) );
 148 ok( !GlobalFindAtomW( wc($name) ));
 149
 150 # So this one should fail
 151 ok( GlobalDeleteAtom( $atom ) == $atom && $wine::err == ERROR_INVALID_HANDLE );
 152
 153
 154 ################################################################
 155 # Test error handling
 156
 157 # ASCII
 158 ok( ($atom = GlobalAddAtomA("a" x 255)) );
 159 ok( !GlobalDeleteAtom($atom) );
 160 ok( !GlobalAddAtomA( "a" x 256 ) && $wine::err == ERROR_INVALID_PARAMETER );
 161 ok( !GlobalFindAtomA( "b" x 256 ) && $wine::err == ERROR_INVALID_PARAMETER );
 162
 163 # Unicode
 164 ok( ($atom = GlobalAddAtomW( wc("a" x 255) )) );
 165 ok( !GlobalDeleteAtom($atom) );
 166 ok( !GlobalAddAtomW( wc("a" x 256) ) && $wine::err == ERROR_INVALID_PARAMETER );
 167 ok( !GlobalFindAtomW( wc("b" x 256) ) && $wine::err == ERROR_INVALID_PARAMETER );