1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
#!/usr/bin/env perl -w
use strict;
use warnings;
use lib qw( t/lib );
use Test::More qw( no_plan );
use File::Spec;
use constant FILE => File::Spec->catfile( qw( t slurp.txt ) );
use Sys::Info::Constants qw( OSID );
BEGIN {
my @fakes =
map { sprintf $_, OSID() }
qw(
Sys::Info::Driver::%s::Device::CPU
Sys::Info::Driver::%s::OS
);
foreach my $class ( @fakes ) {
(my $file = $class) =~ s{::}{/}xmsg;
$file .= q(.pm);
$INC{ $file } = $class;
}
}
# Sys::Info::Device::CPU
# Sys::Info::Device
# Sys::Info::OS
# ... can not be tested without a driver
# TODO: interface test for Sys::Info::Constants
use Sys::Info::Base;
use Sys::Info::Driver;
is( Sys::Info::Base->slurp(FILE), 'slurp', 'slurp() works' );
ok( Sys::Info::Base->load_module('MyLoadableThing'), 'load_module() works');
ok( defined &MyLoadableThing::fancy_sub, 'ExtUtils::MakeMaker::WriteMakefile is defined' );
is( Sys::Info::Base->trim(" \n\n Foo \n \t \n "), 'Foo', 'trim() works');
ok( my @f = Sys::Info::Base->read_file(FILE), 'read_file() works' );
is( $f[0], 'slurp', 'read_file() works' );
ok( my $t = Sys::Info::Base->date2time('1 Fri Jul 23 20:48:29 CDT 2004'),
'date2time() works');
like( scalar( localtime $t ), qr{Jul .+? 2004}xms, 'Got an approximate date' );
1;
|
