X-Git-Url: https://arthur.barton.de/cgi-bin/gitweb.cgi?p=bup.git;a=blobdiff_plain;f=wvtest;h=7d494f348185713ea0c44d80d9959ea74448f936;hp=109b223df0bbe28ad71e200a65e872c2247bd1d6;hb=HEAD;hpb=6d329a615b06e75c0a027ced89fb320bb262c9a0

diff --git a/wvtest b/wvtest
deleted file mode 100755
index 109b223..0000000
--- a/wvtest
+++ /dev/null
@@ -1,212 +0,0 @@
-#!/usr/bin/env perl
-#
-# WvTest:
-#   Copyright (C) 2007-2009 Versabanq Innovations Inc. and contributors.
-#   Copyright (C) 2015 Rob Browning <rlb@defaultvalue.org>
-#       Licensed under the GNU Library General Public License, version 2.
-#       See the included file named LICENSE for license information.
-#
-use strict;
-use warnings;
-use Time::HiRes qw(time);
-
-my $pid;
-my $istty = -t STDOUT;
-my @log = ();
-
-sub usage
-{
-    my ($fh) = @_;
-    print $fh "Usage: $0 run <command line...>\n";
-}
-
-sub usage_death()
-{
-    usage(\*STDERR);
-    exit 127;
-}
-
-sub bigkill($)
-{
-    my $pid = shift;
-
-    if (@log) {
-	print "\n" . join("\n", @log) . "\n";
-    }
-
-    print STDERR "\n! Killed by signal    FAILED\n";
-
-    ($pid > 0) || die("pid is '$pid'?!\n");
-
-    local $SIG{CHLD} = sub { }; # this will wake us from sleep() faster
-    kill 15, $pid;
-    sleep(2);
-
-    if ($pid > 1) {
-	kill 9, -$pid;
-    }
-    kill 9, $pid;
-
-    exit(125);
-}
-
-sub colourize($)
-{
-    my $result = shift;
-    my $pass = ($result eq "ok");
-
-    if ($istty) {
-	my $colour = $pass ? "\e[32;1m" : "\e[31;1m";
-	return "$colour$result\e[0m";
-    } else {
-	return $result;
-    }
-}
-
-sub mstime($$$)
-{
-    my ($floatsec, $warntime, $badtime) = @_;
-    my $ms = int($floatsec * 1000);
-    my $str = sprintf("%d.%03ds", $ms/1000, $ms % 1000);
-
-    if ($istty && $ms > $badtime) {
-        return "\e[31;1m$str\e[0m";
-    } elsif ($istty && $ms > $warntime) {
-        return "\e[33;1m$str\e[0m";
-    } else {
-        return "$str";
-    }
-}
-
-sub resultline($$)
-{
-    my ($name, $result) = @_;
-    return sprintf("! %-65s %s", $name, colourize($result));
-}
-
-my ($start, $stop);
-
-sub endsect()
-{
-    $stop = time();
-    if ($start) {
-	printf " %s %s\n", mstime($stop - $start, 500, 1000), colourize("ok");
-    }
-}
-
-sub run()
-{
-    usage_death() if (@ARGV < 1);
-
-    # always flush
-    $| = 1;
-
-    print STDERR "Testing \"all\" in @ARGV:\n";
-
-    $pid = open(my $fh, "-|");
-    if (!$pid) {
-        # child
-        setpgrp();
-        open STDERR, '>&STDOUT' or die("Can't dup stdout: $!\n");
-        exec(@ARGV);
-        exit 126; # just in case
-    }
-
-    # parent
-    my $allstart = time();
-    local $SIG{INT} = sub { bigkill($pid); };
-    local $SIG{TERM} = sub { bigkill($pid); };
-    local $SIG{ALRM} = sub {
-        print STDERR "Alarm timed out!  No test results for too long.\n";
-        bigkill($pid);
-    };
-
-    my ($gpasses, $gfails) = (0,0);
-    while (<$fh>)
-    {
-        chomp;
-        s/\r//g;
-
-        if (/^\s*Testing "(.*)" in (.*):\s*$/)
-        {
-            alarm(120);
-            my ($sect, $file) = ($1, $2);
-
-            endsect();
-
-            printf("! %s  %s: ", $file, $sect);
-            @log = ();
-            $start = $stop;
-        }
-        elsif (/^!\s*(.*?)\s+(\S+)\s*$/)
-        {
-            alarm(120);
-
-            my ($name, $result) = ($1, $2);
-            my $pass = ($result eq "ok");
-
-            if (!$start) {
-                printf("\n! Startup: ");
-                $start = time();
-            }
-
-            push @log, resultline($name, $result);
-
-            if (!$pass) {
-                $gfails++;
-                if (@log) {
-                    print "\n" . join("\n", @log) . "\n";
-                    @log = ();
-                }
-            } else {
-                $gpasses++;
-                print ".";
-            }
-        }
-        else
-        {
-            push @log, $_;
-        }
-    }
-
-    endsect();
-
-    my $newpid = waitpid($pid, 0);
-    if ($newpid != $pid) {
-        die("waitpid returned '$newpid', expected '$pid'\n");
-    }
-
-    my $code = $?;
-    my $ret = ($code >> 8);
-
-    # return death-from-signal exits as >128.  This is what bash does if you ran
-    # the program directly.
-    if ($code && !$ret) { $ret = $code | 128; }
-
-    if ($ret && @log) {
-        print "\n" . join("\n", @log) . "\n";
-    }
-
-    if ($code != 0) {
-        print resultline("Program returned non-zero exit code ($ret)", "FAILED");
-    }
-
-    my $gtotal = $gpasses+$gfails;
-    printf("\nWvTest: %d test%s, %d failure%s, total time %s.\n",
-           $gtotal, $gtotal==1 ? "" : "s",
-           $gfails, $gfails==1 ? "" : "s",
-           mstime(time() - $allstart, 2000, 5000));
-    print STDERR "\nWvTest result code: $ret\n";
-    exit( $ret ? $ret : ($gfails ? 125 : 0) );
-}
-
-usage_death() unless (@ARGV > 1);
-my $action = $ARGV[0];
-shift @ARGV;
-
-if ($action eq 'run') {
-  run();
-}
-else {
-  usage_death();
-}