#!/usr/bin/perl
use strict;
use lib '../Rose-DB/lib';
use lib 'lib';
use lib 't/cg-lib';
require 't/test-lib.pl';
my $db_type = $ARGV[0] or die "Missing database type argument";
Rose::DB->default_type($db_type);
my $class_prefix = 'My' . ucfirst($db_type);
my $product_class = $class_prefix . '::Product';
my $product_manager_class = $product_class . '::Manager';
eval "require ${product_class}::Manager";
die "Could not load $product_class - $@" if($@);
my $color_class = $class_prefix . '::Color';
my $color_manager_class = $color_class . '::Manager';
eval "require ${color_class}::Manager";
die "Could not load $color_class - $@" if($@);
my $p = $product_class->new(id => 1, name => 'A');
$p->prices({ region => 'IS', price => 1.25 },
{ region => 'DE', price => 4.25 });
$p->colors({ code => 'CC1', name => 'red' },
{ code => 'CC2', name => 'green' });
$p->vendor({ name => 'V1' });
$p->save;
$p = $product_class->new(id => $p->id)->load;
my $ret = $p->vendor->name . '; ' .
join(', ', map { $_->region . ': ' . $_->price }
sort { $a->price <=> $b->price } $p->prices) . '; ' .
join(', ', map { $_->name } sort { $a->name cmp $b->name } $p->colors) . '; ';
my $c = $color_class->new(name => 'red')->load;
$ret .= $c->name . ': ' . $c->code, '; ';
print $ret, "\n";
my $v = $p->vendor;
$p->delete(cascade => 1);
$v->delete;
$product_manager_class->delete_products(all => 1);
$color_manager_class->delete_colors(all => 1);
#My::Product->meta->auto_load_related_classes(0);
#print My::Product->meta->perl_class_definition(braces => 'bsd', indent => 2);
__END__
DROP TABLE product_colors CASCADE;
DROP TABLE prices CASCADE;
DROP TABLE products CASCADE;
DROP TABLE colors CASCADE;
DROP TABLE vendors CASCADE;
CREATE TABLE vendors
(
id SERIAL NOT NULL PRIMARY KEY,
name VARCHAR(255)
);
CREATE TABLE colors
(
code CHAR(3) NOT NULL PRIMARY KEY,
name VARCHAR(255)
);
CREATE TABLE products
(
id SERIAL NOT NULL PRIMARY KEY,
name VARCHAR(255),
vendor_id INT NOT NULL REFERENCES vendors (id)
);
CREATE TABLE prices
(
price_id SERIAL NOT NULL PRIMARY KEY,
product_id INT NOT NULL REFERENCES products (id),
region CHAR(2) NOT NULL DEFAULT 'US',
price DECIMAL(10,2) NOT NULL
);
CREATE TABLE product_colors
(
id SERIAL NOT NULL PRIMARY KEY,
product_id INT NOT NULL REFERENCES products (id),
color_code CHAR(3) NOT NULL REFERENCES colors (code)
);
INSERT INTO vendors (id, name) VALUES (1, 'V1');
INSERT INTO vendors (id, name) VALUES (2, 'V2');
INSERT INTO products (id, name, vendor_id) VALUES (1, 'A', 1);
INSERT INTO products (id, name, vendor_id) VALUES (2, 'B', 2);
INSERT INTO products (id, name, vendor_id) VALUES (3, 'C', 1);
INSERT INTO prices (product_id, region, price) VALUES (1, 'US', 1.25);
INSERT INTO prices (product_id, region, price) VALUES (1, 'DE', 4.25);
INSERT INTO prices (product_id, region, price) VALUES (2, 'US', 5.55);
INSERT INTO prices (product_id, region, price) VALUES (3, 'US', 5.78);
INSERT INTO prices (product_id, region, price) VALUES (3, 'US', 9.99);
INSERT INTO colors (code, name) VALUES ('CC1', 'red');
INSERT INTO colors (code, name) VALUES ('CC2', 'green');
INSERT INTO colors (code, name) VALUES ('CC3', 'blue');
INSERT INTO colors (code, name) VALUES ('CC4', 'pink');
INSERT INTO product_colors (product_id, color_code) VALUES (1, 'CC1');
INSERT INTO product_colors (product_id, color_code) VALUES (1, 'CC2');
INSERT INTO product_colors (product_id, color_code) VALUES (2, 'CC4');
INSERT INTO product_colors (product_id, color_code) VALUES (3, 'CC2');
INSERT INTO product_colors (product_id, color_code) VALUES (3, 'CC3');