use strict;
use warnings;
use 5.010;

use Test::More;

use lib 'lib';
use Fake::Split;

splitF_info( 1 );

plan tests => 73;

is_deeply splitF_test(" ", "a b c");
is_deeply splitF_test("^", "a\nb\nc");
is_deeply splitF_test(qr/:/, undef);
is_deeply splitF_test(":", "a:b:c");
is_deeply splitF_test(qr/:b:/, "a:b:c");
is_deeply splitF_test(qr//, "abc\n");
is_deeply splitF_test(qr/:/, "a:b:c::::");
is_deeply splitF_test(" ", "    a b\tc \t d ");
is_deeply splitF_test(qr/ */, "foo  bar bie\tdoll");
is_deeply splitF_test(qr/ /, "a b  c");
is_deeply splitF_test(" ", "1 2 3 4 5 6", 3);
is_deeply splitF_test(" ", "1 2 3 4 5 6", 4);
is_deeply splitF_test(qr/:/, "1:2:3:4:5:6:::", 999);
is_deeply splitF_test(" ", "1 2 3 4 5 6", 2);
is_deeply splitF_test(qr/,|(-)/, "1-10,20,,,");
is_deeply splitF_test(qr/,|(-)/, "1-10,20,,,", 10);
is_deeply splitF_test(qr/x/, "", -1);
is_deeply splitF_test(qr/x/, "", 1);
is_deeply splitF_test(qr/(p+)/, "", -1);
is_deeply splitF_test(qr/.?/, "", -1);
is_deeply splitF_test(qr/^a/m, "a b a\na d a", 20);
is_deeply splitF_test(qr/a$/m, "a b a\na d a", 20);
is_deeply splitF_test(qr/^aa/m, "aa b aa\naa d aa", 20);
is_deeply splitF_test(qr/aa$/m, "aa b aa\naa d aa", 20);
is_deeply splitF_test(qr/\s*:\s*/, "a : b :c: d");
is_deeply splitF_test(1, "p1q1r1s");
is_deeply splitF_test(qr/^/, "ab\ncd\nef\n");
is_deeply splitF_test(qr/\A/, "ab\ncd\nef\n");
is_deeply splitF_test(qr/(?=\w)/, "rm b");
is_deeply splitF_test(qr//, v1.20.300.4000.50000.4000.300.20.1);
is_deeply splitF_test(qr/\x{FE}/, "\xFF\xFE\xFD");
is_deeply splitF_test(qr/(\x{FE}\xFE)/, "\xFF\xFF\xFE\xFE\xFD\xFD");
is_deeply splitF_test(qr//, "\x{4D2}{\x{929}");
is_deeply splitF_test(qr/A/, "\x{4D2}A\x{929}");
is_deeply splitF_test(qr//, "\x{B36C}\x{5A8C}\x{FF5B}\x{5079}\x{505B}");
is_deeply splitF_test(qr/\x40/, " \@\x80\x{100}\x80\@ ");
is_deeply splitF_test(qr/(?^u:\x{100})/, " \@\x80\x{100}\x80\@ ");
is_deeply splitF_test(qr/(?^u:\x{80}\x{100}\x{80})/, " \@\x80\x{100}\x80\@ ");
is_deeply splitF_test(qr/\x40\x{80}/, " \@\x80\x{100}\x80\@ ");
is_deeply splitF_test(qr/[\x40\x{80}]+/, " \@\x80\x{100}\x80\@ ");
is_deeply splitF_test(qr//, "ABC\x{263A}");
is_deeply splitF_test(qr/\xFE/, "\xFF\xFE\xFD");
is_deeply splitF_test(qr/\s+/, "hello cruel world");
is_deeply splitF_test(qr/ll/, "hello cruel world");
is_deeply splitF_test(qr/(A)|B/, "1B2");
is_deeply splitF_test(qr/\r?\n/, "\x{10F1FF}\n");
is_deeply splitF_test(qr/[,]/, "readin,database,readout");
is_deeply splitF_test(qr/[, ]+/, "a,b");
is_deeply splitF_test(qr/(?^u:ä)/, "a\xE4b");
is_deeply splitF_test(qr/(?^u:ä)/, "axb");
is_deeply splitF_test(qr/,/, "");
is_deeply splitF_test(qr/,/, ",,,,,");
is_deeply splitF_test(" \0 ", "ABC \0 FOO \0  XYZ");
is_deeply splitF_test(qr/ \0 /, "ABC \0 FOO \0  XYZ");
is_deeply splitF_test(1, "", {});
is_deeply splitF_test(qr/::/, "Font::GlyphNames");
is_deeply splitF_test(" ", "foo  bar");
is_deeply splitF_test(qr/ /, "foo  bar");
is_deeply splitF_test(qr/\s/, " a b c ");
is_deeply splitF_test(qr/ /, " a b c ");
is_deeply splitF_test(" ", " a b c ");
is_deeply splitF_test(" ", " a \tb c ");
is_deeply splitF_test(" ", "  foo  ");
is_deeply splitF_test(qr/ /, "  foo  ");
is_deeply splitF_test(qr//, undef, 0);
is_deeply splitF_test(qr//, "foobarbaz");
is_deeply splitF_test(qr//, "abc");
#is_deeply splitF_test(qr/-(?{ $c++ })/, "a-b-c");
is_deeply splitF_test(qr/:/, "a:b:c");
is_deeply splitF_test(qr/:/, "a:b:c:d:e");
is_deeply splitF_test(qr/-/, "-");
is_deeply splitF_test(" ", "");
is_deeply splitF_test("", "ab");
is_deeply splitF_test(";", "a;b");