-
Notifications
You must be signed in to change notification settings - Fork 9
/
56-columns_extjs.t
40 lines (30 loc) · 1017 Bytes
/
56-columns_extjs.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl
use strict;
use warnings;
use lib qw( t/lib );
use Test::More 'no_plan';
# this test should restrict the displayed columns to only two
# but not alter headings. it uses the hidden setting in extjs
# application loads
BEGIN {
$ENV{AUTOCRUD_CONFIG} = 't/lib/columns_extjs.conf';
use_ok "Test::WWW::Mechanize::Catalyst::AJAX" => "TestAppCustomConfig";
}
my $mech = Test::WWW::Mechanize::Catalyst::AJAX->new;
$mech->get_ok("/autocrud/dbic/album", "Get HTML for album table");
my $content = $mech->content;
#use Data::Dumper;
#print STDERR Dumper $content;
# nasty, but simple
my ($colmodel) = ($content =~ m/Ext.grid.ColumnModel\(\[(.+?)\]\);/s);
my @cols = ($colmodel =~ m/{(.+?)}\s*,/sg);
#use Data::Dumper;
#print STDERR Dumper \@cols;
ok(scalar @cols == 8, 'number of columns in ColumnModel');
foreach my $id (0,1) {
ok($cols[$id] !~ m/hidden/, "col pos $id is not hidden");
}
foreach my $id (2,3,4,5) {
ok($cols[$id] =~ m/hidden/, "col pos $id is hidden column");
}
__END__