# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

######################### We start with some black magic to print on failure.

# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)

BEGIN { $| = 1; print "1..3\n"; }
END {print "not ok 1\n" unless $loaded;}
use WWW::Extractor ':all';
$loaded = 1;
print "ok 1\n";

######################### End of black magic.

# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):

chdir 'demo';
load_text 'beyond.txt';
$table = read_table 'Report of Sales';
$out1 = "$table";
print 'not ' unless $out1 =~ /Caramello/;
print "ok 2\n";

load_text 'amazon.txt';
$table1 = read_table <<'End';
ITEM CODE, HITS,                      TITLE,
                  DIR,  NDIR, YOUR FEE,       DISCOUNT,             LIST PRICE
,
---------- ------ ----- ----- ------- --------------------------------------
,
########## ######                      @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
                  ##### ##### #######    sold at ##% off list price of #############
,
---------- ------ ----- ----- ------- --------------------------------------
End
cut $table1 'ITEM CODE', 'TITLE', 'DISCOUNT', 'LIST PRICE', 'YOUR FEE';
$table2 = read_table 'Number of Visitors';
cut $table2 2..6;
drop_head_foot $table2 0, 2;
($from_date, $to_date) = read_line
    'For the week of', 'through';
$out2 = "$table1\n".<<End."\n$table2";
From date: $from_date
  To date: $to_date
End
print 'not ' unless $out2 =~ /History/ and $out2 =~ /date: 10-Oct-1999/ and $out2 =~ /1999  0/;
print "ok 3\n";