Skip to content

Instantly share code, notes, and snippets.

@zoffixznet
Created August 18, 2016 01:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zoffixznet/278dc7e51595ea1c154f782e573fa4ec to your computer and use it in GitHub Desktop.
Save zoffixznet/278dc7e51595ea1c154f782e573fa4ec to your computer and use it in GitHub Desktop.
cpan@perlbuild2:~/CPANPRC/rakudo$ make t/spec/S10-packages/use-with-class.t t/spec/S11-modules/importing.t t/spec/S11-modules/require.t
rm -f -- perl6
cp -- perl6-m perl6
chmod -- 755 perl6
/home/cpan/perl5/perlbrew/perls/perl-5.24.0/bin/perl t/harness5 --fudge --moar --keep-exit-code --verbosity=1 t/spec/S10-packages/use-with-class.t
t/spec/S10-packages/use-with-class.t ..
1..9
ok 1 - can instantiate object of "imported" class
ok 2 - can access attribute
ok 3 - can access method
ok 4 - can set through setter
ok 5 - can set trough assignment
ok 6 - setting actually worked
ok 7 - can extend "imported" class
ok 8 - can load class from inside a method
ok 9 - declaring a class after use-ing a module (RT \#73910)
ok
All tests successful.
Files=1, Tests=9, 8 wallclock secs ( 0.01 usr 0.00 sys + 7.03 cusr 0.78 csys = 7.82 CPU)
Result: PASS
/home/cpan/perl5/perlbrew/perls/perl-5.24.0/bin/perl t/harness5 --fudge --moar --keep-exit-code --verbosity=1 t/spec/S11-modules/importing.t
t/spec/S11-modules/importing.t ..
1..16
ok 1 - Foo::foo is defined (explicitly :DEFAULT)
ok 2 - Foo::foo is the sub we expect
ok 3 - Foo::bar is defined (explicitly :DEFAULT and :others)
ok 4 - Foo::bar is the sub we expect
ok 5 - Foo::baz is defined (:MANDATORY)
ok 6 - Foo::baz is the sub we expect
ok 7 - Foo::bop is defined (implicitly :DEFAULT)
ok 8 - Foo::bop is the sub we expect
ok 9 - Foo::waz multi is defined (implicitly :DEFAULT)
ok 10 - Foo::waz is the sub we expect
ok 11 - Foo::waz imported does not wipe out our other waz multis
ok 12 - qux() not imported
ok 13 - gaz() not imported
ok 14 - Foo::foo is undefined in outer scope
ok 15 - can instantiate class that's loaded from inside another class
1..4
ok 1 - 'use t::spec::packages::S11-modules::Foo :NoSucTag;' died
ok 2 - right exception type (X::Import::NoSuchTag)
ok 3 - .tag matches NoSucTag
ok 4 - .source-package matches t::spec::packages::S11-modules::Foo
ok 16 - die while trying to import a non-existent export tag
ok
All tests successful.
Files=1, Tests=16, 8 wallclock secs ( 0.01 usr 0.00 sys + 7.18 cusr 0.73 csys = 7.92 CPU)
Result: PASS
/home/cpan/perl5/perlbrew/perls/perl-5.24.0/bin/perl t/harness5 --fudge --moar --keep-exit-code --verbosity=1 t/spec/S11-modules/require.t
t/spec/S11-modules/require.rakudo.moar ..
1..27
ok 1 - successful require PACKAGE returns PACKAGE
ok 2 - successful require STRING returns STRING
not ok 3 - require Test installs stub Test package at compile time# TODO creation of stub package symbol NYI RT \#125083
# Failed test 'require Test installs stub Test package at compile time'
# at t/spec/S11-modules/require.rakudo.moar line 21
# expected: '(Test)'
# got: '(Any)'
ok 4 - can load InnerModule from a path at run time
ok 5 - can introspect EXPORT of require'd package
ok 6 - can call our-sub from required module
ok 7 - can load InnerModule from a variable at run time
ok 8 - can import symbol not inside module
ok 9 - can load InnerModule by name and path, with import list
ok 10 - \# SKIP Trying to import from 'InnerModule', but the following symbols are missing: quux RT \#118407
ok 11 - can load Fancy::Utilities at run time
ok 12 - can call our-sub from required module
ok 13 - can require with variable name
ok 14 - can call subroutines in a module by name
ok 15 - require with import list
ok 16 - loading modules does not clobber GLOBAL
ok 17 - can change directory and require a module
ok 18 - requiring something non-existent does not make it segfault
1..2
ok 1 - code dies
ok 2 - right exception type (X::Import::MissingSymbols)
ok 19 - throws correct exception
ok 20 - require works at BEGIN
ok 21 - \# SKIP import require at compile time RT \#127538
ok 22 - bar didn't leak
ok 23 - got outer symbol
ok 24 - call method that causes a require
ok 25 - got inner symbol
ok 26 - Cool::Utils has been merged
ok 27 - Cool::Utils was returned
# FUDGED!
ok
All tests successful.
Files=1, Tests=27, 25 wallclock secs ( 0.02 usr 0.00 sys + 22.36 cusr 2.32 csys = 24.70 CPU)
Result: PASS
cpan@perlbuild2:~/CPANPRC/rakudo$
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment