Last change
on this file since 681 was 30, checked in by bcornec, 19 years ago |
Id property added on files to allow for better conf. management
|
-
Property svn:keywords
set to
Id
|
File size:
739 bytes
|
Line | |
---|
1 | # Before `make install' is performed this script should be runnable with
|
---|
2 | # `make test'. After `make install' it should work as `perl test.pl'
|
---|
3 |
|
---|
4 | #########################
|
---|
5 |
|
---|
6 | # change 'tests => 1' to 'tests => last_test_to_print';
|
---|
7 |
|
---|
8 | use Test;
|
---|
9 | BEGIN { plan tests => 1 };
|
---|
10 | use Mindi::DiskSize qw(:all);
|
---|
11 | ok(1); # If we made it this far, we're ok.
|
---|
12 |
|
---|
13 | #########################
|
---|
14 |
|
---|
15 | # Insert your test code below, the Test module is use()ed here so read
|
---|
16 | # its man page ( perldoc Test ) for help writing this test script.
|
---|
17 | my $disk_size_k = get_size_of_disk ("/dev/ad2");
|
---|
18 | my $disk_siz2_k = get_size_of_disk ("/dev/ad2a");
|
---|
19 | print "sizeof /dev/ad2 = $disk_size_k\n";
|
---|
20 | print "sizeof /dev/ad2a = $disk_siz2_k\n";
|
---|
21 | skip ($>, $disk_size_k);
|
---|
22 | skip ($>, $disk_siz2_k);
|
---|
Note:
See
TracBrowser
for help on using the repository browser.