Simplify atom.pl

Francois Gouget fgouget at codeweavers.com
Sun Mar 31 20:50:01 CST 2002


   This test was written before one could just 'use kernel32'.


Changelog:

   François Gouget <fgouget at codeweavers.com>

 * dlls/kernel/tests/atom.pl

   Don't bother with declare, just 'use kernel32'


-- 
François Gouget
fgouget at codeweavers.com
-------------- next part --------------
Index: dlls/kernel/tests/atom.pl
===================================================================
RCS file: /home/wine/wine/dlls/kernel/tests/atom.pl,v
retrieving revision 1.2
diff -u -r1.2 atom.pl
--- dlls/kernel/tests/atom.pl	9 Mar 2002 23:33:06 -0000	1.2
+++ dlls/kernel/tests/atom.pl	30 Mar 2002 19:15:31 -0000
@@ -20,19 +20,7 @@
 
 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"]],
-);
+use kernel32;
 
 my $name = "foobar";
 


More information about the wine-patches mailing list