← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/libsql-reservedwords-perl/oneiric

« back to all changes in this revision

Viewing changes to t/07-odbc.t

  • Committer: Bazaar Package Importer
  • Author(s): Krzysztof Krzyżaniak (eloy)
  • Date: 2007-05-23 15:46:51 UTC
  • Revision ID: james.westby@ubuntu.com-20070523154651-yfxf9zx61d147v8c
Tags: upstream-0.7
Import upstream version 0.7

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/07-odbc.t
 
1
#!perl
 
2
 
 
3
use strict;
 
4
use warnings;
 
5
 
 
6
use Test::More;
 
7
 
 
8
plan tests => 22;
 
9
 
 
10
use_ok( 'SQL::ReservedWords::ODBC' );
 
11
 
 
12
my @methods = qw[
 
13
    is_reserved
 
14
    is_reserved_by_odbc3
 
15
    reserved_by
 
16
    words
 
17
];
 
18
 
 
19
can_ok( 'SQL::ReservedWords::ODBC', @methods );
 
20
 
 
21
foreach my $method ( @methods ) {
 
22
    ok ! __PACKAGE__->can($method), "$method was not exported by default";
 
23
}
 
24
 
 
25
ok   my @words = SQL::ReservedWords::ODBC->words,               'Got words';
 
26
cmp_ok @words, '==', 235,                                       'Got 235 words';
 
27
ok   SQL::ReservedWords::ODBC->is_reserved('user'),             'USER is reserved';
 
28
ok   SQL::ReservedWords::ODBC->is_reserved_by_odbc3('user'),    'USER is reserved by ODBC 3.0';
 
29
ok ! SQL::ReservedWords::ODBC->is_reserved('bogus'),            'BOGUS is not reserved';
 
30
ok ! SQL::ReservedWords::ODBC->is_reserved(undef),              'undef is not reserved';
 
31
 
 
32
is_deeply [ SQL::ReservedWords::ODBC->reserved_by('user')               ],
 
33
          [ 'ODBC 3.0'                                                  ],
 
34
          'Got right reserved by for USER';
 
35
 
 
36
is_deeply [ SQL::ReservedWords::ODBC->reserved_by('bogus')              ],
 
37
          [                                                             ],
 
38
          'Got right reserved by for BOGUS';
 
39
 
 
40
 
 
41
use_ok 'SQL::ReservedWords::ODBC', @methods;
 
42
 
 
43
foreach my $method ( @methods ) {
 
44
    cmp_ok __PACKAGE__->can($method), '==', SQL::ReservedWords::ODBC->can($method), "$method was exported";
 
45
}
 
46
 
 
47
ok   @words = words(),                                          'Got words';
 
48
ok   is_reserved('user'),                                       'USER is reserved';
 
49
ok   is_reserved_by_odbc3('user'),                              'USER is reserved by ODBC 3.0';