From b3435a067c7e15241bc6628d8dbba32c5ec84f98 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 19 Aug 2001 22:11:54 +0000 Subject: add some test code --- perl-install/standalone/diskdrake | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake index 9b326d388..4c113413a 100755 --- a/perl-install/standalone/diskdrake +++ b/perl-install/standalone/diskdrake @@ -69,6 +69,11 @@ fs::get_raw_hds('', $all_hds); fs::merge_info_from_fstab([ fsedit::get_really_all_fstab($all_hds) ]); fs::merge_info_from_mtab([ fsedit::get_really_all_fstab($all_hds) ]); + +if (getenv("TEST_DEFAULT_OPTIONS")) { + fs::set_default_options($all_hds); + fs::set_removable_mntpoints($all_hds); +} diskdrake_interactive::main($in, $all_hds); $in->exit(0); -- cgit v1.2.1