actual fixed tests.

1 files changed, 9 insertions, 7 deletions

diff --git a/regress/usr.sbin/pkg_add/check-name b/regress/usr.sbin/pkg_add/check-name
index a3fd12ef7ef..089ef33a655 100644
--- a/regress/usr.sbin/pkg_add/check-name
+++ b/regress/usr.sbin/pkg_add/check-name
@@ -1,5 +1,5 @@
 #! /usr/bin/perl
-# $OpenBSD: check-name,v 1.7 2009/11/03 11:14:49 sthen Exp $
+# $OpenBSD: check-name,v 1.8 2009/11/03 11:22:53 espie Exp $
 # Written by Marc Espie
 # Public domain
 
@@ -44,12 +44,14 @@ ok(check_list([qw(foo-1.0 foo-1.0p0)],
 ok(check_list([qw(foo-1.0 foo-1.0p0 foo-1.0p25)],
     check_pkgspec('foo-1.0', @list)),
 	'any 1.0p* matches 1.0');
-ok(check_list([qw(foo-1.0rc2)], 
-    check_pkgspec('foo-<1.0', @list)),
-	'before 1.0 came 1.0rc2');
-ok(check_list([qw(foo-1.0)], 
-    check_pkgspec('foo-<1.0pl1', @list)),
-	'before 1.0pl1 came 1.0');
+@list = qw(foo-1.0rc2);
+ok(check_list(\@list,
+    check_pkgspec('foo-<1.0', @list)),                                         
+       'before 1.0 came 1.0rc2');                                              
+@list = qw(foo-1.0);
+ok(check_list(\@list,
+    check_pkgspec('foo-<1.0pl1', @list)),                                      
+       'before 1.0pl1 came 1.0');                                              
 
 my @pkglist=qw(foo-1.0 bar-2.0 foo-2.5 foobar-2.3-pouet hugs-noversion baz-0.0 
 	baz-1.1 baz-25.3 pouet-1.0 pouet-zoinx-1.0 pouet-0.0-foo);