From a08300033d2ccaa6f2704535f977fb876da93b65 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Tue, 5 May 2020 22:42:51 +0100
Subject: Add functional tests.

---
 t/21-ensure-mounted.t | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 t/21-ensure-mounted.t

(limited to 't/21-ensure-mounted.t')

diff --git a/t/21-ensure-mounted.t b/t/21-ensure-mounted.t
new file mode 100644
index 0000000..9cfe599
--- /dev/null
+++ b/t/21-ensure-mounted.t
@@ -0,0 +1,50 @@
+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->unmount($udisks_paths[0]), 'unmount returns success');
+    $mount_point = find_mount_point($fake_device);
+}
+ok(!$mount_point, 'device is not mounted');
+
+# Now test it gets mounted by ensure_mounted.
+my $udisks_mount_point = $cdroms->ensure_mounted($udisks_paths[0]);
+$mount_point = find_mount_point($fake_device);
+ok($mount_point, 'ensure_mounted 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');
+
+# And that a repeated call to ensure_mounted works.
+my $udisks_mount_point = $cdroms->ensure_mounted($udisks_paths[0]);
+$mount_point = find_mount_point($fake_device);
+ok($mount_point, 'repeated ensure_mounted 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');
+
+# And that we can unmount it.
+ok($cdroms->unmount($udisks_paths[0]), 'unmount returns success');
+
+ok(-e "/dev/$fake_device", 'device has not been ejected');
+
+done_testing();
+
+END {
+    remove_fake_media() if $> == 0;
+}
-- 
cgit v1.2.1