#!/usr/local/bin/perl use strict; # This script is run Test::Harness on the tests found under the # "t" directory. # First we check if we already are within the "t" directory unless (-d "base") { # try to move into test directory chdir "t" or die "Can't chdir: $!"; # fix all relative library locations foreach (@INC) { $_ = "../$_" unless m,^/,; } } # Pick up the library files from the ../blib directory unshift(@INC, "../blib/lib", "../blib/arch"); #print "@INC\n"; ############## Run the rest of the tests $Test::Harness::verbose = shift if $ARGV[0] =~ /^\d+$/ || $ARGV[0] eq "-v"; no warnings 'redefine'; my @testfiles = ( "Text-NSP.t", "Text-NSP-Measures.t", "2D/Text-NSP-Measures-2D.t", "2D/MI/ll/Text-NSP-Measures-2D-MI-ll.t", "2D/MI/ll/Text-NSP-Measures-2D-MI-ll-1.03.t", "2D/MI/pmi/Text-NSP-Measures-2D-MI-pmi.t", "2D/MI/ps/Text-NSP-Measures-2D-MI-ps.t", "2D/MI/tmi/Text-NSP-Measures-2D-MI-tmi.t", "2D/MI/Text-NSP-Measures-2D-MI.t", "2D/chi/x2/Text-NSP-Measures-2D-CHI-x2.t", "2D/chi/x2/Text-NSP-Measures-2D-CHI-x2-1.03.t", "2D/chi/phi/Text-NSP-Measures-2D-CHI-phi.t", "2D/chi/tscore/Text-NSP-Measures-2D-CHI-tscore.t", "2D/chi/Text-NSP-Measures-2D-CHI.t", "2D/dice/Text-NSP-Measures-2D-dice.t", "2D/odds/Text-NSP-Measures-2D-odds.t", "2D/jaccard/Text-NSP-Measures-2D-jaccard.t", "2D/Fisher/left/Text-NSP-Measures-2D-Fisher-left.t", "2D/Fisher/right/Text-NSP-Measures-2D-Fisher-right.t", "2D/Fisher/twotailed/Text-NSP-Measures-2D-Fisher-twotailed.t", "2D/Fisher/Text-NSP-Measures-2D-Fisher.t", "3D/MI/Text-NSP-Measures-3D-MI.t", "3D/MI/ll/Text-NSP-Measures-3D-MI-ll.t", "3D/MI/ll/Text-NSP-Measures-3D-MI-ll-1.03.t", "3D/MI/tmi/Text-NSP-Measures-3D-MI-tmi.t", "3D/MI/pmi/Text-NSP-Measures-3D-MI-pmi.t", "3D/MI/ps/Text-NSP-Measures-3D-MI-ps.t", ); use Test::Harness; runtests(@testfiles);