Last change
on this file since 84 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
|
Rev | Line | |
---|
[1] | 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.