The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# vi:ft=

use strict;
use warnings;

use t::Cheater;

plan tests => 1 * blocks();
no_diff;

run_tests;

__DATA__

=== TEST 1: real and null
--- src
table users (
    id real;
)

5 users;
--- out
users
      id
      249901.980484964
      NULL
      77303.5067951077
      192194.15345864
      373904.076861809



=== TEST 2: real asc
--- src
table users (
    id real asc;
)

5 users;
--- out
users
      id
      NULL
      77303.5067951077
      192194.15345864
      249901.980484964
      373904.076861809



=== TEST 3: real desc
--- src
table users (
    id real desc;
)

5 users;
--- out
users
      id
      373904.076861809
      249901.980484964
      192194.15345864
      77303.5067951077
      NULL



=== TEST 4: real w/o null
--- src
table users (
    id real not null;
)

5 users;
--- out
users
      id
      -329171.96389371
      249901.980484964
      -403628.344376433
      370465.227027076
      77303.5067951077



=== TEST 5: enum simple reals
--- src
table users (
    name real {1, 3, 5, 7} not null;
)

8 users;
--- out
users
      name
      1
      5
      1
      7
      5
      7
      5
      3



=== TEST 6: enum simple nums
--- src
table users (
    name real {-3.1,-1,1.5,3} not null;
)

8 users;
--- out
users
      name
      -3.1
      1.5
      -3.1
      3
      1.5
      3
      1.5
      -1



=== TEST 7: enum (mixture)
--- src
table users (
    name real {18, -9.1, /[a-c]{3}/, 1..2} not null;
)

8 users;
--- err
table users, column name: "bcc" does not look like a number.



=== TEST 8: enum unique
--- src
table users (
    name real {'abc','bcd','c','d'} not null;
)

4 users;
--- err
table users, column name: "abc" does not look like a number.



=== TEST 9: regex
--- src
table users (
    name real /\d{1}\.\d{2}/ not null unique;
)

4 users;
--- out
users
      name
      8.38
      7.85
      1.98
      9.09



=== TEST 10: empty domain enum
--- src
table users (
    name real {} unique;
)

4 users;
--- out
users
      name
      NULL
      NULL
      NULL
      NULL



=== TEST 11: int range
--- src
table users (
    name real 1..3 unique;
)

4 users;
--- out
users
      name
      1
      3
      2
      NULL



=== TEST 12: real range
--- src
table users (
    name real 1.0..3.0 unique;
)

4 users;
--- out
users
      name
      1.19274
      2.57160
      2.74781
      1.70746



=== TEST 13: int range (negative numbers)
--- src
table users (
    name real -3..-1 unique;
)

4 users;
--- out
users
      name
      -3
      -1
      -2
      NULL



=== TEST 14: real range (negative numbers)
--- src
table users (
    name real -2.0..-1.5 unique;
)

4 users;
--- out
users
      name
      -1.95181
      -1.60710
      -1.56305
      -1.82314