1
g
Index of /FSS-BCZ/root/sys/class/input/input4/capabilities
Index of /FSS-BCZ/root/sys/class/input/input4/capabilities
C l=JJj"T .F
^_I|yea4(&D qF . #!/usr/bin/perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
use strict;
use warnings;
use Test::Builder;
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();
Test::Builder->new->no_header(1);
Test::Builder->new->no_ending(1);
local $ENV{HARNESS_ACTIVE} = 0;
# Can't use Test.pm, that's a 5.005 thing.
package main;
my $TB = Test::Builder->create;
$TB->plan(tests => 102);
# Utility testing functions.
sub ok ($;$) {
return $TB->ok(@_);
}
sub is ($$;$) {
my($thing, $that, $name) = @_;
my $ok = $TB->is_eq($$thing, $that, $name);
$$thing = '';
return $ok;
}
sub like ($$;$) {
my($thing, $regex, $name) = @_;
$regex = "/$regex/" if !ref $regex and $regex !~ m{^/.*/$}s;
my $ok = $TB->like($$thing, $regex, $name);
$$thing = '';
return $ok;
}
require Test::More;
Test::More->import(tests => 11, import => ['is_deeply']);
my $Filename = quotemeta $0;
#line 68
ok !is_deeply('foo', 'bar', 'plain strings');
is( $out, "not ok 1 - plain strings\n", 'plain strings' );
is( $err, <