#!/usr/local/bin/perl -wT
use strict;
use warnings;
use Test::More;
plan tests => 10;
use AnyData;
my $table = adTie( 'Weblog', 't/weblog.tbl', 'r', {} );
ok( 1 == adRows($table), "Failed rows" );
#remotehost,username,authuser,date,request,status,bytes,client,referer
#12.34.56.78 - - [13/Mar/2008:07:38:53 +0100] "GET /creeper/image HTTP/1.1" 200 252 "http://www.example.com/" "Mozilla/5.0 (Windows; U; Windows NT 6.0; sv-SE; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12"
my $row = each %$table;
ok( '12.34.56.78' eq $row->{remotehost}, 'remotehost' );
ok( '-' eq $row->{username}, 'username' );
ok( '-' eq $row->{authuser}, 'authuser' );
ok( '13/Mar/2008:07:38:53 +0100' eq $row->{date}, 'date' );
ok( 'GET /creeper/image HTTP/1.1' eq $row->{request}, 'request' );
ok( '200' eq $row->{status}, 'status' );
ok( '252' eq $row->{bytes}, 'bytes' );
ok(
'"Mozilla/5.0 (Windows; U; Windows NT 6.0; sv-SE; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12"'
eq $row->{client},
'client ' . $row->{client}
);
ok( '"http://www.example.com/"' eq $row->{referer},
'referer: ' . $row->{referer} );
#write test
#TODO: looks like writing a weblog is broken
#print STDERR "\n---\n";
#print STDERR adExport( $table, 'Weblog', undef, { } );
#print STDERR "\n---\n";
#ok(
# <<'HERE' eq adExport( $table, 'Weblog', undef, { } ), 'export weblog format' );
#HERE
__END__