Microsoft (R) Program Maintenance Utility   Version 7.00.8882
Copyright (C) Microsoft Corp 1988-2000. All rights reserved.

Installing C:\cpanrun-5.8\build\5-8-0\site\lib\SQL\Abstract\Limit.pm
Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\SQL\Abstract\Limit\.packlist
Appending installation info to C:\cpanrun-5.8\build\5-8-0\lib/perllocal.pod
.1
# Testing SQL::Abstract::Limit 0.12
ok 1 - use SQL::Abstract::Limit;
ok
t\01.sql..........1..22
ok 1 - survives constructor
ok 2 - select LimitOffset
ok 3 - base SQL
ok 4 - complete SQL
ok 5 - select LimitXY
ok 6 - base SQL
ok 7 - complete SQL
ok 8 - select LimitXY
ok 9 - base SQL
ok 10 - complete SQL
ok 11 - select Top
ok 12 - base SQL
not ok 13 - complete SQL # TODO need regex for complex query
#     Failed (TODO) test (t\01.sql.t at line 75)
#                   'SELECT * FROM
# (
#     SELECT TOP 10 * FROM
#     (
#         SELECT TOP 80  requestor, worker, colC, colH FROM TheTable WHERE ( requestor = ? AND status != ? AND ( ( worker = ? ) OR ( worker = ? ) OR ( worker = ? ) ) ) ORDER BY pay ASC, age ASC
#     ) AS foo
#     ORDER BY pay DESC, age DESC
# ) AS bar
# ORDER BY pay ASC, age ASC
# '
#     doesn't match '(?-xism:^complete\ SQL$)'
ok 14 - select RowNum
ok 15 - base SQL
not ok 16 - complete SQL # TODO need regex for complex query
#     Failed (TODO) test (t\01.sql.t at line 84)
#                   'SELECT * FROM
# (
#     SELECT A.*, ROWNUM r FROM
#     (
#         SELECT requestor, worker, colC, colH FROM TheTable WHERE ( requestor = ? AND status != ? AND ( ( worker = ? ) OR ( worker = ? ) OR ( worker = ? ) ) )  ORDER BY pay, age
#     ) A
#     WHERE ROWNUM < 81
# ) B
# WHERE r >= 71
# '
#     doesn't match '(?-xism:^complete\ SQL$)'
ok 17 - select GenericSubQ
ok 18 - GenericSubQ SQL
not ok 19 - complete SQL # TODO need regex for complex query
#     Failed (TODO) test (t\01.sql.t at line 95)
#                   'SELECT requestor, worker, colC, colH FROM TheTable X WHERE ( requestor = ? AND status != ? AND ( ( worker = ? ) OR ( worker = ? ) OR ( worker = ? ) ) ) AND
# (
#     SELECT COUNT(*) FROM TheTable WHERE requestor > X.requestor
# )
# BETWEEN 70 AND 80
# ORDER BY requestor DESC
# '
#     doesn't match '(?-xism:^complete\ SQL$)'
ok 20 - select GenericSubQ
ok 21 - base SQL
not ok 22 - complete SQL # TODO need regex for complex query
#     Failed (TODO) test (t\01.sql.t at line 104)
#                   'SELECT * FROM (
#     SELECT * FROM (
#         SELECT requestor, worker, colC, colH FROM TheTable WHERE ( requestor = ? AND status != ? AND ( ( worker = ? ) OR ( worker = ? ) OR ( worker = ? ) ) )
#         ORDER BY pay ASC, age ASC
#         FETCH FIRST 80 ROWS ONLY
#     ) foo
#     ORDER BY pay DESC, age DESC
#     FETCH FIRST 10 ROWS ONLY
# ) bar
# ORDER BY pay ASC, age ASC
# '
#     doesn't match '(?-xism:^complete\ SQL$)'
 *** not yet testing subquery LIMIT emulations
ok
t\02.syntax.......1..7
ok 1 # skip need DBD::AnyData and Class::DBI to test syntax auto-detection
ok 2 # skip need DBD::AnyData and Class::DBI to test syntax auto-detection
ok 3 # skip need DBD::AnyData and Class::DBI to test syntax auto-detection
ok 4 # skip need DBD::AnyData and Class::DBI to test syntax auto-detection
ok 5 # skip need DBD::AnyData and Class::DBI to test syntax auto-detection
ok 6 # skip need DBD::AnyData and Class::DBI to test syntax auto-detection
ok 7 # skip need DBD::AnyData and Class::DBI to test syntax auto-detection
ok
        7/7 skipped: need DBD::AnyData and Class::DBI to test syntax auto-detection
t\03.subclass.....1..3
ok 1 - my own limit
ok 2 - custom LIMIT
ok 3 - SQL::Abstract - no limit
ok
t\04.args.........1..3
ok 1 - no-LIMIT with ORDER BY
ok 2 - SQL::Abstract base stmt
ok 3 - got an order_by clause
ok
t\pod-coverage....1..1
ok 1 - Pod coverage on SQL::Abstract::Limit
ok
t\pod.............1..1
ok 1 - blib\lib\SQL\Abstract\Limit.pm
ok
All tests successful, 7 subtests skipped.
Files=7, Tests=38,  2 wallclock secs ( 0.00 cusr +  0.00 csys =  0.00 CPU)