04-entry-type-table.t

来自「SinFP是一种新的识别对方计算机操作系统类型的工具」· T 代码 · 共 55 行

use Test;
BEGIN { plan(tests => 1) }

package TBeer;

require DBIx::SQLite::Simple::Table;
require Class::Gomor::Array;
our @ISA = qw(DBIx::SQLite::Simple::Table Class::Gomor::Array);

our @AS = qw(
   beer
   country
);
__PACKAGE__->cgBuildIndices;
__PACKAGE__->cgBuildAccessorsScalar(\@AS);

our @Fields = @AS;

1;

package main;

require DBIx::SQLite::Simple;
my $db = DBIx::SQLite::Simple->new(db => 'test-file.db');

my $tBeer = TBeer->new;
$tBeer->create unless $tBeer->exists;

my @entries;
for (qw(grim leffe bud)) {
   push @entries, TBeer->new(beer => $_, country => 'BE');
}

$tBeer->insert(\@entries);
$tBeer->commit;
$tBeer->delete(\@entries);
$tBeer->commit;
$tBeer->insert(\@entries);
$tBeer->commit;

my $content = $tBeer->select;
my $old = $content->[-1]->cgClone;
$content->[-1]->country('US');
$tBeer->update([ $content->[-1] ], $old);
$tBeer->commit;

$content = $tBeer->select;

print 'beer: ', $_->beer, ' country: ', $_->country, "\n"
   for @$content;

unlink('test-file.db');

ok(1);