diff options
Diffstat (limited to 'regress/usr.sbin/pkg_add/check-cfl')
| -rw-r--r-- | regress/usr.sbin/pkg_add/check-cfl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/regress/usr.sbin/pkg_add/check-cfl b/regress/usr.sbin/pkg_add/check-cfl index 235fedd585b..ab4d0486c8b 100644 --- a/regress/usr.sbin/pkg_add/check-cfl +++ b/regress/usr.sbin/pkg_add/check-cfl @@ -1,11 +1,11 @@ #! /usr/bin/perl -# $OpenBSD: check-cfl,v 1.2 2014/01/31 10:18:35 espie Exp $ +# $OpenBSD: check-cfl,v 1.3 2014/01/31 10:28:18 espie Exp $ # Written by Marc Espie # Public domain use strict; use warnings; -use Test::Simple tests => 3; +use Test::Simple tests => 4; use OpenBSD::PkgCfl; use OpenBSD::PackingList; @@ -19,8 +19,8 @@ sub check_list if (@r != @_) { print STDERR "length: ", scalar(@r)," vs. ", scalar(@_), "\n"; - print STDERR join(',', @r), "\n"; - print STDERR join(',', @_), "\n"; + print STDERR "Expected: ", join(',', @r), "\n"; + print STDERR "Result: ", join(',', @_), "\n"; return 0; } for my $i (0 .. @_ -1) { |