#!/usr/bin/perl -T use lib '.'; use lib 't'; use SATest; sa_t_init("config_text"); # skip the test on Windows; the switches contain spaces, which does not # work too well with win32 CMD.EXE use Test::More; plan skip_all => "These tests don't work on windows" if $^O =~ /^(mswin|dos|os2)/i; plan tests => 2; # --------------------------------------------------------------------------- %patterns = ( q{ FOO } => 'FOO', q{ BAR } => 'BAR', ); sarun ("-L -t ". "--cf='body FOO /VFS/' ". "--cf='body BAR /source/' ". "< data/nice/001", \&patterns_run_cb); ok_all_patterns();