Apache-SWIT
view release on metacpan or search on metacpan
t/400_skeleton.t view on Meta::CPAN
}
sub sh {
return [ sort { $a->{handler} cmp $b->{handler} } @{ shift() } ];
}
is_deeply(so(\@urls), so([ qw(/aaa/bbb/foo /aaa/bbb/go/r /aaa/bbb/go/u) ]))
or diag(Dumper(\@urls));
is_deeply(so(\@pns), so([ qw(foo go go) ])) or diag(Dumper(\@pns));
is_deeply(so(\@pes), so([ $fooep, $go_ent, $go_ent ]))
or diag(Dumper([ sort @pes ]));
my $b = sh([ $fooep, $go_ent->{entry_points}->{r}
, $go_ent->{entry_points}->{u} ]);
my $a = sh(\@eps);
is_deeply($a, $b) or diag(Dumper($a) . Dumper($b));
# We should not save becouse transaction can fail
ok(! -f 'conf/swit_app.yaml');
my $list = Apache::SWIT::Maker::Skeleton::Scaffold::List->new({
columns => [ qw(col_a col_b col_c) ], table => 'the_tab' });
ok($list);
ok($list->columns);
ok($list->table);
ok($list->can('config_entry'));
my $e = Apache::SWIT::Maker::Config->instance->create_new_page('P');
is_deeply($e, {
entry_points => {
u => { handler => 'swit_update_handler' },
r => {
handler => 'swit_render_handler',
template => 'templates/p.tt'
}
}, class => 'Aaa::Bbb::UI::P' }) or diag(Dumper($e));
$list->config_entry($e);
sub is_with_diff {
my ($a, $b) = @_;
is($a, $b) or do {
write_file("$td/a.file", $a);
write_file("$td/b.file", $b);
diag(`diff -u $td/a.file $td/b.file`);
ASTU_Wait($td);
};
}
my $res = $list->get_output;
is_with_diff($res, <<'ENDS');
use strict;
use warnings FATAL => 'all';
package Aaa::Bbb::UI::P::Root::Item;
use base 'HTML::Tested::ClassDBI';
use Aaa::Bbb::DB::TheTab;
__PACKAGE__->ht_add_widget(::HTV."::Link", 'col_a'
, href_format => '../info/r?the_tab_id=%s'
, cdbi_bind => [ col_a => 'Primary' ]
, column_title => 'ColA'
, 0 => { isnt_sealed => 1 });
__PACKAGE__->ht_add_widget(::HTV."::Marked"
, 'col_b', cdbi_bind => ''
, column_title => 'ColB');
__PACKAGE__->ht_add_widget(::HTV."::Marked"
, 'col_c', cdbi_bind => ''
, column_title => 'ColC');
__PACKAGE__->bind_to_class_dbi('Aaa::Bbb::DB::TheTab');
package Aaa::Bbb::UI::P::Root;
use base 'HTML::Tested';
__PACKAGE__->ht_add_widget(::HTV."::Form", 'form', default_value => 'u');
__PACKAGE__->ht_add_widget(::HT."::List", 'the_tab_list'
, __PACKAGE__ . '::Item', render_table => 1);
package Aaa::Bbb::UI::P;
use base qw(Apache::SWIT::HTPage);
sub ht_swit_render {
my ($class, $r, $root) = @_;
$root->the_tab_list_containee_do(query_class_dbi => 'retrieve_all');
return $root;
}
sub ht_swit_update {
my ($class, $r, $root) = @_;
return "r";
}
1;
ENDS
$list->write_output;
is(read_file('lib/Aaa/Bbb/UI/P.pm'), $res);
my $args = { columns => [ qw(col_a col_b col_c) ], table => 'the_tab' };
my $lt = Apache::SWIT::Maker::Skeleton::Scaffold::ListTemplate->new($args);
$lt->config_entry($e);
$lt->write_output;
$res = read_file('templates/p.tt');
is_with_diff($res, <<'ENDS');
<html>
<body>
[% form %]
[% the_tab_list_table %]
</form>
<br />
<a href="../form/r">Add TheTab</a>
</body>
</html>
ENDS
Apache::SWIT::Maker->write_swit_yaml;
ok(-f 'conf/swit.yaml');
Apache::SWIT::Maker->_make_page('Info', $args
, qw(scaffold_info scaffold_info_template));
ok(-f 'lib/Aaa/Bbb/UI/Info.pm');
ok(-f 'templates/info.tt');
$res = read_file('lib/Aaa/Bbb/UI/Info.pm');
is_with_diff($res, <<'ENDS');
use strict;
use warnings FATAL => 'all';
package Aaa::Bbb::UI::Info::Root;
use base 'HTML::Tested::ClassDBI';
use Aaa::Bbb::DB::TheTab;
__PACKAGE__->ht_add_widget(::HTV."::Form", form => default_value => 'u');
__PACKAGE__->ht_add_widget(::HTV."::Marked"
, col_a => cdbi_bind => '');
__PACKAGE__->ht_add_widget(::HTV."::Marked"
, col_b => cdbi_bind => '');
__PACKAGE__->ht_add_widget(::HTV."::Marked"
, col_c => cdbi_bind => '');
__PACKAGE__->ht_add_widget(::HTV, the_tab_id => cdbi_bind => 'Primary');
__PACKAGE__->bind_to_class_dbi('Aaa::Bbb::DB::TheTab');
package Aaa::Bbb::UI::Info;
use base qw(Apache::SWIT::HTPage);
sub ht_swit_render {
my ($class, $r, $root) = @_;
$root->cdbi_load;
return $root;
}
sub ht_swit_update {
my ($class, $r, $root) = @_;
return "r";
}
1;
ENDS
$res = read_file('templates/info.tt');
is_with_diff($res, <<ENDS);
<html>
<body>
[% form %]
ColA: [% col_a %] <br />
ColB: [% col_b %] <br />
ColC: [% col_c %] <br />
</form>
<a href="../form/r?the_tab_id=[% the_tab_id %]">
Edit TheTab</a>
<a href="../list/r">List TheTab</a>
</body>
</html>
ENDS
Apache::SWIT::Maker->_make_page('Form', $args
, qw(scaffold_form scaffold_form_template));
ok(-f 'lib/Aaa/Bbb/UI/Form.pm');
$res = read_file('lib/Aaa/Bbb/UI/Form.pm');
is_with_diff($res, <<'ENDS');
use strict;
use warnings FATAL => 'all';
package Aaa::Bbb::UI::Form::Root;
use base 'HTML::Tested::ClassDBI';
use Aaa::Bbb::DB::TheTab;
__PACKAGE__->ht_add_widget(::HTV."::Hidden", 'the_tab_id'
, cdbi_bind => 'Primary');
__PACKAGE__->ht_add_widget(::HTV."::Submit", 'submit_button'
, default_value => 'Submit');
__PACKAGE__->ht_add_widget(::HTV."::Submit", 'delete_button'
, default_value => 'Delete');
__PACKAGE__->ht_add_widget(::HTV."::Form", form => default_value => 'u');
__PACKAGE__->ht_add_widget(::HTV."::EditBox"
, col_a => cdbi_bind => '');
__PACKAGE__->ht_add_widget(::HTV."::EditBox"
, col_b => cdbi_bind => '');
__PACKAGE__->ht_add_widget(::HTV."::EditBox"
, col_c => cdbi_bind => '');
__PACKAGE__->bind_to_class_dbi('Aaa::Bbb::DB::TheTab');
package Aaa::Bbb::UI::Form;
use base qw(Apache::SWIT::HTPage);
sub ht_swit_render {
my ($class, $r, $root) = @_;
$root->cdbi_load;
return $root;
}
sub ht_swit_update {
my ($class, $r, $root) = @_;
if ($root->delete_button) {
$root->cdbi_delete;
return $root->ht_make_query_string("../list/r");
}
$root->cdbi_create_or_update;
return $root->ht_make_query_string("../info/r", "the_tab_id");
}
1;
ENDS
ok(-f 'templates/form.tt');
$res = read_file('templates/form.tt');
is_with_diff($res, <<'ENDS');
<html>
<body>
<h2>Add/Remove/Edit TheTab</h2>
[% form %]
ColA: [% col_a %] <br />
ColB: [% col_b %] <br />
ColC: [% col_c %] <br />
[% the_tab_id %]
[% submit_button %]
[% delete_button %]
<br />
<a href="../list/r">List TheTab</a>
</form>
</body>
</html>
ENDS
my $config = Apache::SWIT::Maker::Config->instance;
$config->add_startup_class("Aaa::Bbb::CCC");
is_deeply($config->{startup_classes}, [ "Aaa::Bbb::CCC" ]);
like(read_file('conf/swit.yaml'), qr/CCC/);
unlike(read_file('MANIFEST'), qr/PageClasses/);
chdir '/';
( run in 1.708 second using v1.01-cache-2.11-cpan-2398b32b56e )