#!/usr/bin/perl use constant IS_WINDOWS => ($^O =~ /^(mswin|dos|os2)/oi); 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; BEGIN { plan tests => IS_WINDOWS ? 0 : 2 }; exit if IS_WINDOWS; # --------------------------------------------------------------------------- %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();