package delUtil;
use t::lib;
use strict;
use Carp;
use autodbUtil;
use Exporter();
our @ISA=qw(Exporter);
our @EXPORT=(@autodbUtil::EXPORT,
qw($class2colls $coll2keys $default_diffs label %test_args));
# class2colls for all classes in del tests (adapted from putget tests)
# some classes not (yet) used in del tests
our $class2colls=
{Person=>[qw(Person HasName)],
Student=>[qw(Person Student HasName)],
Place=>[qw(Place HasName)],
School=>[qw(Place HasName)],
Thing=>[],
Mechanics=>[qw(Mechanics)],
NoKeys=>[qw(NoKeys)],
NoColls=>[],
SelfCircular=>[qw(SelfCircular)],
Structure=>[qw(Structure)],
Persistent=>[qw(Persistent)],
Persistent00=>[qw(Persistent)],
Persistent02=>[qw(Persistent)],
FindDel=>[qw(FindDel)],
FindDel_case=>[qw(FindDel)],
};
# coll2keys for all collections in del tests (adapted from putget tests)
# some classes not (yet) used in del tests
our $coll2keys=
{Person=>[[qw(id name sex)],[qw(friends)]],
Place=>[[qw(id name country)],[]],
HasName=>[[qw(id name)],[]],
Student=>[[qw(id name school)],[]],
Mechanics=>[[qw(id name string_key integer_key float_key object_key)],
[qw(string_list integer_list float_list object_list)]],
NoKeys=>[[],[]],
SelfCircular=>[[qw(id name self)],[qw(self_array)]],
Structure=>[[qw(id name other)],[]],
Persistent=>[[qw(id name)],[]],
FindDel=>[[qw(id name testcase)],[]],
};
# default table diffs. any table not mentioned has default of 1
our $default_diffs=
{Person_friends=>2,
};
our %test_args=(class2colls=>$class2colls,coll2keys=>$coll2keys,default_diffs=>$default_diffs,
label=>'');
1;