diff options
author | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2020-05-05 22:42:51 +0100 |
---|---|---|
committer | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2020-05-05 22:42:51 +0100 |
commit | a08300033d2ccaa6f2704535f977fb876da93b65 (patch) | |
tree | 8ea73642300ba5ddb75c7b8eb61ba2bd3dbc9c9e /t/20-mount-unmount.t | |
parent | 2d28e08b9584e35e9b268f0ddde161e4b899bbd2 (diff) | |
download | perl-Hal-Cdroms-a08300033d2ccaa6f2704535f977fb876da93b65.tar perl-Hal-Cdroms-a08300033d2ccaa6f2704535f977fb876da93b65.tar.gz perl-Hal-Cdroms-a08300033d2ccaa6f2704535f977fb876da93b65.tar.bz2 perl-Hal-Cdroms-a08300033d2ccaa6f2704535f977fb876da93b65.tar.xz perl-Hal-Cdroms-a08300033d2ccaa6f2704535f977fb876da93b65.zip |
Add functional tests.
Diffstat (limited to 't/20-mount-unmount.t')
-rw-r--r-- | t/20-mount-unmount.t | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/t/20-mount-unmount.t b/t/20-mount-unmount.t new file mode 100644 index 0000000..02ca336 --- /dev/null +++ b/t/20-mount-unmount.t @@ -0,0 +1,52 @@ +use strict; +use lib 't'; +use helper; +use Test::More; +plan skip_all => "You need to be root to run this test" if $> != 0; +plan skip_all => "The scsi_debug kernel module is needed to run this test" if !can_create_fake_media(); + +use_ok('Hal::Cdroms'); + +my $fake_device = create_fake_media(); + +my $cdroms = Hal::Cdroms->new; + +my @udisks_paths = grep { $_ eq "/org/freedesktop/UDisks2/block_devices/$fake_device" } $cdroms->list; +ok(@udisks_paths == 1, 'device is listed'); + +# If a volume manager is running, the device may get auto-mounted. +# Wait to see if this happens, and if so, unmount it. +sleep(2); +my $mount_point = find_mount_point($fake_device); +if ($mount_point) { + ok($cdroms->get_mount_point($udisks_paths[0]) eq $mount_point, 'get_mount_point returns correct path'); + ok($cdroms->unmount($udisks_paths[0]), 'unmount returns success'); + $mount_point = find_mount_point($fake_device); + ok(!$mount_point, 'unmount works'); +} +ok(!$cdroms->get_mount_point($udisks_paths[0]), 'get_mount_point returns no path'); + +# Now test we can mount it. +my $udisks_mount_point = $cdroms->mount($udisks_paths[0]); +$mount_point = find_mount_point($fake_device); +ok($mount_point, 'mount works'); +ok($udisks_mount_point eq $mount_point, 'mount returns correct path'); +ok($cdroms->get_mount_point($udisks_paths[0]) eq $mount_point, 'get_mount_point returns correct path'); + +ok(!$cdroms->mount($udisks_paths[0]), 'repeated mount fails'); + +# And that we can unmount it. +ok($cdroms->unmount($udisks_paths[0]), 'unmount returns success'); +$mount_point = find_mount_point($fake_device); +ok(!$mount_point, 'unmount works'); +ok(!$cdroms->get_mount_point($udisks_paths[0]), 'get_mount_point returns no path'); + +ok(!$cdroms->unmount($udisks_paths[0]), 'repeated unmount fails'); + +ok(-e "/dev/$fake_device", 'device has not been ejected'); + +done_testing(); + +END { + remove_fake_media() if $> == 0; +} |