### ----------------------------------------------------
### -- Path::Router
### -- Licenses: Artistic-2.0
### -- Authors: Sterling Hanenkamp (hanenkamp@cpan.org)
### -- File: t/013_false_path_components.t
### ----------------------------------------------------
#!/usr/bin/perl6

use v6;

use Test;

use Path::Router;

for '0/1', '1/0' -> $path {
    my $router = Path::Router.new;
    $router.add-route($path);
    my $match = $router.match($path);
    ok($match);
    is-deeply($match.route.components, Array[Str].new($path.comb(/ <-[ \/ ]>+ /).Slip));
}

done-testing;


