use v6;

use Test;

# L<S29/Obsolete Functions/=item pos>

plan 2;

my $str = 'moose';
$str ~~ /oo/;
eval_dies_ok('$str.pos', 'Str.pos superseeded by $/.to');

#?pugs todo
is($/.to, 3, '$/.to works');

# vim: ft=perl6
