The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/pugs

use v6;
use Test::PIL::Bootstrap;

check_pil();

pil_is_eq(
    '^Hash.identifier()', 
    '"Hash-0.0.1-url:pugscode.org"', 
    '... Hash has the correct identifier');

pil_is_eq('^Hash.has_method("FETCH")', 'true', '... ^Hash.has_method(FETCH)');
pil_is_eq('^Hash.has_method("STORE")', 'true', '... ^Hash.has_method(STORE)');

pil_is_eq('^Hash.does("Hash")', 'true', '... ^Hash.does(Array)');