aboutsummaryrefslogtreecommitdiffstats
path: root/t/20-mount-unmount.t
diff options
context:
space:
mode:
authorMartin Whitaker <mageia@martin-whitaker.me.uk>2020-05-05 22:42:51 +0100
committerMartin Whitaker <mageia@martin-whitaker.me.uk>2020-05-05 22:42:51 +0100
commita08300033d2ccaa6f2704535f977fb876da93b65 (patch)
tree8ea73642300ba5ddb75c7b8eb61ba2bd3dbc9c9e /t/20-mount-unmount.t
parent2d28e08b9584e35e9b268f0ddde161e4b899bbd2 (diff)
downloadperl-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.t52
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;
+}