03-id-type-table.t

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

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

package TPub;

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

our @AS = qw(
   idPub
   pub
);
__PACKAGE__->cgBuildIndices;
__PACKAGE__->cgBuildAccessorsScalar(\@AS);

our $Id     = $AS[0];
our @Fields = @AS[1..$#AS];

1;

package main;

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

my $tPub = TPub->new;
$tPub->create unless $tPub->exists;

my @entries;
for (qw(corner friends)) {
   push @entries, TPub->new(pub => $_);
}

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

print 'id=1 entry: ', $tPub->lookupString('pub', idPub => 1), "\n";
print 'id=2 entry: ', $tPub->lookupString('pub', idPub => 2), "\n";

my $new = $tPub->select(idPub => 2);
$new->[0]->pub('newFriends');
$tPub->update($new);
$tPub->commit;

print 'corner id:     ', $tPub->lookupId(pub => 'corner'),     "\n";
print 'newFriends id: ', $tPub->lookupId(pub => 'newFriends'), "\n";

my $content = $tPub->select;
for (@$content) {
   print 'id=', $_->idPub, ' entry: ', $_->pub, "\n";
}

unlink('test-file.db');

ok(1);