moving former sanity tests into system/hooks + iterating

[tests.git] / qaapi / qa / tests / node / pf2test.pl

diff --git a/qaapi/qa/tests/node/pf2test.pl b/qaapi/qa/tests/node/pf2test.pl
deleted file mode 100755 (executable)
index ceb81b5..0000000
--- a/qaapi/qa/tests/node/pf2test.pl
+++ /dev/null
@@ -1,50 +0,0 @@
-#!/usr/bin/perl
-
-$netflow_slice="pl_netflow";
-
-print "Warning! This test runs only once. I.e., it will usually not run twice in succession till syslog sees some new activitt\n";
-print "Preparing...";
-
-
-system("cp /var/log/messages /tmp/pf2_test");
-
-
-# Wait for pl_netflow to come up
-
-$timeout=600;
-
-until ((-f "/var/run/vservers/pl_netflow" && -d "/home/pl_netflow") || ($timeout==0)) {sleep (15);print "Waiting for pl_netflow to show up...\n";$timeout-=15;}
-
-if ($timeout>0) {
-# ping magic IP address
-print "Sending out packet...\n";
-system("su -c \"ping -I eth0 -c 1 10.0.0.8\" $netflow_slice -"); 
-
-print "Waiting for flow to appear...\n";
-sleep(10);
-
-open PIP,"|/usr/bin/diff -u /tmp/pf2_test /var/log/messages";
-
-while (<PIP>) {
-       if (/Received test flow to corewars.org from slice ([0-9]+)/) {
-               $xid = int($1);
-               print "Slice id: $xid\n";
-        $success=1;
-               ($xid==0 || $xid==-1) && die("Slice id incorrect");
-       }
-}
-
-if ($success) {
-        print "[SUCCESS]";
-}
-else {
-        print "[FAILED]";
-}
-}
-else {
-    die("[FAILED] Timed out.. pl_netflow didn't come up for 10 minutes...\n");
-}
-
-
-close PIP;
-