ncm-afsclt: add unit tests for cache configuration

Author: jouvin

ncm-afsclt/src/test/perl/configure_cache.t

@@ -0,0 +1,88 @@
+# -*- mode: cperl -*-
+# ${license-info}
+# ${author-info}
+# ${build-info}
+
+use strict;
+use warnings;
+
+use Test::More tests => 14;
+use Test::NoWarnings;
+use Test::Quattor qw(automatic explicit);
+use NCM::Component::afsclt;
+use Readonly;
+use CAF::Object;
+Test::NoWarnings::clear_warnings();
+
+=pod
+
+=head1 SYNOPSIS
+
+Tests for AFS client cache configuration
+
+=cut
+
+Readonly my $CACHEINFO_FILE => '/usr/vice/etc/cacheinfo';
+Readonly my $CACHEINFO_EXPECTED_1 => '/afs:/afscache:AUTOMATIC
+';
+Readonly my $CACHEINFO_EXPECTED_2 => '/afs:/afscache:1422000
+';
+Readonly my $FS_GETPARAMS_CMD => 'fs getcacheparms';
+Readonly my $FS_GETPARAMS_OUTPUT_1 => "AFS using 1229334 of the cache's available 1422000 1K byte blocks.";
+
+#############
+# Main code #
+#############
+
+$CAF::Object::NoAction = 1;
+set_caf_file_close_diff(1);
+
+my $comp = NCM::Component::afsclt->new('afsclt');
+
+my $config = get_config_for_profile("automatic");
+
+# Initial cacheinfo file empty
+set_file_contents($CACHEINFO_FILE,"");
+set_desired_output($FS_GETPARAMS_CMD, $FS_GETPARAMS_OUTPUT_1);
+my $status = $comp->Configure_Cache($config);
+ok(!$status, "Configure_Cache returned no explicit error");
+my $fh = get_file($CACHEINFO_FILE);
+ok(defined($fh), $CACHEINFO_FILE." was opened");
+is("$fh", $CACHEINFO_EXPECTED_1, $CACHEINFO_FILE." (nitially empty) has expected contents");
+$fh->close();
+
+# Initial cacheinfo is the expected cacheinfo (size=AUTOMATIC)
+set_file_contents($CACHEINFO_FILE,$CACHEINFO_EXPECTED_1);
+set_desired_output($FS_GETPARAMS_CMD, $FS_GETPARAMS_OUTPUT_1);
+my $status = $comp->Configure_Cache($config);
+ok(!$status, "Configure_Cache returned no explicit error");
+my $fh = get_file($CACHEINFO_FILE);
+ok(defined($fh), $CACHEINFO_FILE." was opened");
+is("$fh", $CACHEINFO_EXPECTED_1, $CACHEINFO_FILE." (initially expected) has expected contents");
+$fh->close();
+
+# Initial cacheinfo file with explicit size, expected AUTOMATIC
+set_file_contents($CACHEINFO_FILE,$CACHEINFO_EXPECTED_2);
+set_desired_output($FS_GETPARAMS_CMD, $FS_GETPARAMS_OUTPUT_1);
+my $status = $comp->Configure_Cache($config);
+ok(!$status, "Configure_Cache returned no explicit error");
+my $fh = get_file($CACHEINFO_FILE);
+ok(defined($fh), $CACHEINFO_FILE." was opened");
+is("$fh", $CACHEINFO_EXPECTED_1, $CACHEINFO_FILE." (initially explicit size) has expected contents");
+$fh->close();
+
+# Initial cacheinfo file  with size=AUTOMATIC, expected explicit size
+$config = get_config_for_profile("explicit");
+set_file_contents($CACHEINFO_FILE,$CACHEINFO_EXPECTED_1);
+set_desired_output($FS_GETPARAMS_CMD, $FS_GETPARAMS_OUTPUT_1);
+my $status = $comp->Configure_Cache($config);
+ok(!$status, "Configure_Cache returned no explicit error");
+my $fh = get_file($CACHEINFO_FILE);
+ok(defined($fh), $CACHEINFO_FILE." was opened");
+is("$fh", $CACHEINFO_EXPECTED_2, $CACHEINFO_FILE." (initially AUTOMATIC) has expected contents");
+$fh->close();
+
+
+
+Test::NoWarnings::had_no_warnings();
+

ncm-afsclt/src/test/resources/automatic.pan

@@ -0,0 +1,9 @@
+object template automatic;
+
+"/software/components/afsclt/cachemount" = "/afscache";
+"/software/components/afsclt/cachesize" = "AUTOMATIC";
+"/software/components/afsclt/cellservdb" = "http://grand.central.org/dl/cellservdb/CellServDB";
+"/software/components/afsclt/dispatch" = true;
+"/software/components/afsclt/enabled" = "yes";
+"/software/components/afsclt/thiscell" = "in2p3.fr";
+

ncm-afsclt/src/test/resources/explicit.pan

@@ -0,0 +1,9 @@
+object template explicit;
+
+"/software/components/afsclt/cachemount" = "/afscache";
+"/software/components/afsclt/cachesize" = "1422000";
+"/software/components/afsclt/cellservdb" = "http://grand.central.org/dl/cellservdb/CellServDB";
+"/software/components/afsclt/dispatch" = true;
+"/software/components/afsclt/enabled" = "yes";
+"/software/components/afsclt/thiscell" = "in2p3.fr";
+