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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
\unset ECHO
\i test/setup.sql
SELECT plan(47);
--SELECT * from no_plan();
/****************************************************************************/
-- Test is().
SELECT * FROM check_test( is(1, 1), true, 'is(1, 1)', '', '' );
SELECT * FROM check_test( is('x'::text, 'x'::text), true, 'is(''x'', ''x'')', '', '' );
SELECT * FROM check_test( is(1.1, 1.10), true, 'is(1.1, 1.10)', '', '' );
SELECT * FROM check_test( is(true, true), true, 'is(true, true)', '', '' );
SELECT * FROM check_test( is(false, false), true, 'is(false, false)', '', '' );
SELECT * FROM check_test( is(1, 1, 'foo'), true, 'is(1, 1, desc)', 'foo', '' );
SELECT * FROM check_test( is( 1, 2 ), false, 'is(1, 2)', '', ' have: 1
want: 2');
/****************************************************************************/
-- Test isnt().
SELECT * FROM check_test( isnt(1, 2), true, 'isnt(1, 2)', '', '' );
SELECT * FROM check_test( isnt( 1, 1 ), false, 'isnt(1, 1)', '', ' have: 1
want: anything else' );
/****************************************************************************/
-- Try using variables.
\set foo '\'' waffle '\''
\set bar '\'' waffle '\''
SELECT is( :foo::text, :bar::text, 'is() should work with psql variables' );
/****************************************************************************/
-- Try using NULLs.
SELECT * FROM check_test(
is( NULL::text, NULL::text, 'NULLs' ),
true,
'is(NULL, NULL)',
'NULLs',
''
);
SELECT * FROM check_test(
is( NULL::text, 'foo' ),
false,
'is(NULL, foo)',
'',
' have: NULL
want: foo'
);
SELECT * FROM check_test(
is( 'foo', NULL::text ),
false,
'is(foo, NULL)',
'',
' have: foo
want: NULL'
);
SET client_min_messages = warning;
CREATE TABLE mumble ( id int, name text );
RESET client_min_messages;
INSERT INTO mumble VALUES (1, 'hey');
SELECT is( mumble.*, ROW(1, 'hey')::mumble, 'with records!' )
FROM mumble;
SELECT check_test(
is( mumble.*, ROW(1, 'HEY')::mumble ),
false,
'is(mumble, row) fail',
'',
' have: (1,hey)
want: (1,HEY)'
) FROM mumble;
SELECT check_test(
is( mumble.*, ROW(1, NULL)::mumble ),
false,
'is(mumble, row) fail with NULL',
'',
' have: (1,hey)
want: (1,)'
) FROM mumble;
SELECT check_test(
is( mumble.*, NULL::mumble ),
false,
'is(mumble, NULL)',
'',
' have: (1,hey)
want: NULL'
) FROM mumble;
/****************************************************************************/
-- Finish the tests and clean up.
SELECT * FROM finish(false); -- Arbitrarily decided to test `finish(false)` here... :)
ROLLBACK;
|
