Changeset 1286

Timestamp:

10/05/08 23:27:59 (2 months ago)

Author:

mbr

Message:

Added tests for fwknopd --Override configs, filesystem SPA packet caching (with --Save-packet and --Save-packet-append), added uptime to system specifics

Files:

• fwknop/trunk/test/conf/override_sleep_fwknop.conf (added)
• fwknop/trunk/test/fwknop_test.pl (modified) (5 diffs)

fwknop/trunk/test/fwknop_test.pl

@@ -70 +70 @@
-my $multi_source_access_conf = "$conf_dir/multi_source_access.conf";
-my $no_local_nat_fwknop_conf = "$conf_dir/no_local_nat_fwknop.conf";
+my $override_sleep_fwknop_conf = "$conf_dir/override_sleep_fwknop.conf";
-my $client_timeout_access_conf = "$conf_dir/client_timeout_access.conf";
-my $restricted_forward_access_conf = "$conf_dir/forward_internal_ip_access.conf";
@@ -212 +213 @@
-&test_driver("(Setup) System information and fwknop installation specifics",
-    \&specs);
+&test_driver('(Setup) Dump config', \&dump_config);
+&test_driver('(Setup) Override config', \&override_config);
+&test_driver('(Setup) Caching SPA packets to disk', \&SPA_disk_caching);
+&test_driver('(Setup) Caching multiple SPA packets to disk',
+    \&SPA_multi_packet_disk_caching);
-&test_driver('(Setup) Stopping any running fwknopd processes',
-    \&stop_fwknopd);
@@ -915 +921 @@
-    for my $cmd (
-        'uname -a',
+        'uptime',
-        'perl -V',
-        'gpg --version',
@@ -924 +931 @@
-        "$fwknopdCmd -V",
-        "$fwknopCmd -V",
-
+ig
-        'if [ -e /usr/bin/fwknop ]; then /usr/bin/fwknop -V; fi',
-        'if [ -e /usr/sbin/fwknopd ]; then /usr/sbin/fwknopd -V; fi',
@@ -3011 +3018 @@
-}
-
+sub dump_config() {
+    my $cmd = "$fwknopdCmd --Dump-config";
+    if (&run_cmd($cmd, $NO_APPEND)) {
+        my $found = 0;
+        open F, "< $current_test_file" or die $!;
+        ### just look for an expected variable
+        while (<F>) {
+            if (/SLEEP_INTERVAL/) {
+                $found = 1;
+                last;
+            }
+        }
+        close F;
+        if ($found) {
+            return 1;
+        } else {
+            return &print_errors("[-] Could not find expected " .
+                "variable from --Dump-config output");
+        }
+    }
+    return &print_errors("[-] Could not execute: $cmd");
+}
+
+sub override_config() {
+    my $cmd = "$fwknopdCmd --Override-config " .
+        "$override_sleep_fwknop_conf --Dump-config";
+    if (&run_cmd($cmd, $NO_APPEND)) {
+        my $found = 0;
+        open F, "< $current_test_file" or die $!;
+        ### just look for an expected variable
+        while (<F>) {
+            if (/SLEEP_INTERVAL\s+42/) {
+                $found = 1;
+                last;
+            }
+        }
+        close F;
+        if ($found) {
+            return 1;
+        } else {
+            return &print_errors("[-] Could not find expected " .
+                "override value from --Dump-config output");
+        }
+    }
+    return &print_errors("[-] Could not execute: $cmd");
+}
+
+sub SPA_disk_caching() {
+    my $pkt_file = "$output_dir/SPA_pkt.single";
+    unlink $pkt_file if -e $pkt_file;
+    my $cmd = "$fwknopCmd $default_fwknop_args --Save-packet " .
+        "--Save-packet-file $pkt_file";
+    unless (&run_cmd($cmd, $NO_APPEND)) {
+        return &print_errors("[-] Could not execute: $cmd");
+    }
+    unless (&run_cmd($cmd, $APPEND)) {
+        return &print_errors("[-] Could not execute: $cmd");
+    }
+    if (-e $pkt_file) {
+        my $lines = 0;
+        open F, "< $pkt_file" or die $!;
+        while (<F>) {
+            $lines++;
+        }
+        close F;
+        if ($lines == 1) {
+            return 1;
+        } else {
+            return &print_errors("[-] --Save-packet-file " .
+                "$pkt_file does not contain a single SPA packet");
+        }
+    } else {
+        return &print_errors("[-] --Save-packet-file " .
+            "$pkt_file does not exist");
+    }
+    return &print_errors("[-] Could not write SPA packet " .
+        "to --Save-packet-file $pkt_file");
+}
+
+sub SPA_multi_packet_disk_caching() {
+    my $pkt_file = "$output_dir/SPA_pkt.multi";
+    unlink $pkt_file if -e $pkt_file;
+    my $cmd = "$fwknopCmd $default_fwknop_args --Save-packet " .
+        "--Save-packet-file $pkt_file --Save-packet-append";
+    unless (&run_cmd($cmd, $NO_APPEND)) {
+        return &print_errors("[-] Could not execute: $cmd");
+    }
+    unless (&run_cmd($cmd, $APPEND)) {
+        return &print_errors("[-] Could not execute: $cmd");
+    }
+    if (-e $pkt_file) {
+        my $lines = 0;
+        open F, "< $pkt_file" or die $!;
+        while (<F>) {
+            $lines++;
+        }
+        close F;
+        if ($lines == 2) {
+            return 1;
+        } else {
+            return &print_errors("[-] --Save-packet-file " .
+                "$pkt_file does not contain two SPA packets");
+        }
+    } else {
+        return &print_errors("[-] --Save-packet-file " .
+            "$pkt_file does not exist");
+    }
+    return &print_errors("[-] Could not write two SPA packets " .
+        "with --Save-packet-append");
+}
+
-sub show_last() {
-    &run_cmd("$fwknopCmd --Show-last", $APPEND);