/[A3C]/t/00-action-StrixSQL.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /t/00-action-StrixSQL.t

Parent Directory Parent Directory | Revision Log Revision Log


Revision 174 - (show annotations)
Mon Jun 16 16:48:16 2008 UTC (15 years, 9 months ago) by dpavlin
File MIME type: application/x-troff
File size: 908 byte(s)
big rename of StrixSite to StrixInstance, added sitemap and layout

rename creates huge diff, which is rather unfortunate, but we needed
to get terminology stright: sites are part of strix instances
1 #!/usr/bin/env perl
2 use warnings;
3 use strict;
4
5 =head1 DESCRIPTION
6
7 A (very) basic test harness for the StrixSQL action.
8
9 =cut
10
11 use Jifty::Test tests => 10;
12
13 # Make sure we can load the action
14 use_ok('A3C::Action::StrixSQL');
15
16 my $action = Jifty::Test->web->new_action(
17 class => 'StrixSQL',
18 # current_user => $system_user,
19 # arguments => {}
20 );
21
22 isa_ok( $action, 'A3C::Action::StrixSQL' );
23
24 $action->argument_values({ instance => 'os-test0604-zg', sql => 'select now() as time' });
25 $action->run;
26
27 ok( $action->result->success, 'result is success' );
28
29 ok( my $coll = $action->result->content( 'sql' ), 'result content have sql' );
30
31 isa_ok( $coll, 'A3C::SQL' );
32
33 cmp_ok( $coll->count, '>', 0, 'count' );
34
35 is_deeply( [ $coll->_column_names ], [ 'time' ], '_column_names' );
36
37 ok( my $row = $coll->next, 'next' );
38
39 isa_ok( $row, 'A3C::SQL::row' );
40
41 ok( my $time = $row->time, 'row->time' );
42
43 diag $time;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26