Help language development. Donate to The Perl Foundation

String::Fields cpan:ELIZABETH last updated on 2020-01-27

t/01-basic.t
use v6.c;
use Test;
use String::Fields;

plan 16;

my $sf := String::Fields.new(3,4,5);
isa-ok $sf, String::Fields,
  'Did we get a String::Fields object';

isa-ok $sf.set-string("12345678901234567890"), String::Fields,
  'Did it stay a String::Fields object';

is $sf[0], "123",   'is the first element ok';
is $sf[1], "4567",  'is the second element ok';
is $sf[2], "89012", 'is the third element ok';
is-deeply $sf[2,1,0], ("89012","4567","123"), 'is the slice ok';

is $sf.join, "123456789012", 'did we join the fields';
is $sf.join(":"), "123:4567:89012", 'did we join the fields with ":"';

my @fields;
@fields.push($_) for $sf;
is-deeply @fields, ["123","4567","89012"], 'did we iterate ok';

my $foo = "abcdefghijklmnopqrstuvwxyz";
$foo.&apply-fields($sf);
isa-ok $foo, String::Fields,
  'did $foo become a String::Fields object';

@fields = ();
@fields.push($_) for $foo<>;
is-deeply @fields, [<abc defg hijkl>], 'did we iterate ok';

$foo.&apply-fields(String::Fields.new(8 => 2, 0 => 3, 4 => 2));
isa-ok $foo, String::Fields,
  'is $foo still a String::Fields object';

@fields = ();
@fields.push($_) for $foo<>;
is-deeply @fields, [<ij abc ef>], 'did we iterate ok';

my $bar = "abcdefghijklmnopqrstuvwxyz";
@fields = $bar.&apply-fields(4,5,6);
is-deeply @fields, [<abcd efghi jklmno>], 'did we store ok';

@fields = "abcdefghijklmnopqrstuvwxyz".&apply-fields(4,5,6);
is-deeply @fields, [<abcd efghi jklmno>], 'did we store ok';

ok $foo.starts-with("abcde"), 'check normal Str method';

# vim: ft=perl6 expandtab sw=4