Skip to content

Instantly share code, notes, and snippets.

@zoffixznet
Created January 27, 2017 14:04
Show Gist options
  • Save zoffixznet/422f019322f3dfd2051773bd02b2e250 to your computer and use it in GitHub Desktop.
Save zoffixznet/422f019322f3dfd2051773bd02b2e250 to your computer and use it in GitHub Desktop.
cpan@perlbuild2~/CPANPRC/rakudo (nom)$ make t/spec/S02-types/num.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/S02-types/num.t
ok 1 - EVAL 1.Num.perl is Num
ok 2 - EVAL 1.Num.perl is 1
ok 3 - EVAL 0.Num.perl is Num
ok 4 - EVAL 0.Num.perl is 0
ok 5 - EVAL -1.Num.perl is Num
ok 6 - EVAL -1.Num.perl is -1
ok 7 - EVAL 1.1.Num.perl is Num
ok 8 - EVAL 1.1.Num.perl is 1.1
ok 9 - EVAL -1.1.Num.perl is Num
ok 10 - EVAL -1.1.Num.perl is -1.1
ok 11 - EVAL 1e100.Num.perl is Num
ok 12 - EVAL 1e100.Num.perl is 1
ok 13 - The object is-a 'Int'
ok 14 - 1 stringification works
ok 15 - The object is-a 'Int'
ok 16 - -1 stringification works
ok 17 - The object is-a 'Rat'
ok 18 - 1/1 stringification works
ok 19 - The object is-a 'Rat'
ok 20 - -1 stringification works
ok 21 - The object is-a 'Rat'
ok 22 - 0.1 stringification works
ok 23 - The object is-a 'Rat'
ok 24 - -0.1 stringification works
ok 25 - The object is-a 'Rat'
ok 26 - 10.01 stringification works
ok 27 - The object is-a 'Num'
ok 28 - -1 stringification works
ok 29 - The object is-a 'Num'
ok 30 - 0.1 stringification works
ok 31 - The object is-a 'Num'
ok 32 - -0.1 stringification works
ok 33 - The object is-a 'Num'
ok 34 - 10.01 stringification works
ok 35 - 1e3 conforms to Num
ok 36 - 1e3 stringification works
ok 37 - The object is-a 'Num'
ok 38 - 10.01e3 stringification works
ok 39 - The object is-a 'Int'
ok 40 - 0b100 (binary) stringification works
ok 41 - The object is-a 'Int'
ok 42 - 0x100 (hex) stringification works
ok 43 - The object is-a 'Int'
ok 44 - 0o100 (octal) stringification works
ok 45 - basic addition works
ok 46 - basic addition with negative numbers works
ok 47 - The object is-a 'Rat'
ok 48 - The object is-a 'Rat'
ok 49 - trailing zeros compare correctly
ok 50 - The object is-a 'Num'
ok 51 - trailing zeros compare correctly
ok 52 - The object is-a 'Int'
ok 53 - 1.01 intifies to 1
ok 54 - The object is-a 'Int'
ok 55 - 0d0101 numifies to 101
ok 56 - we have bignums, not weeny floats
ok 57 - underscores allowed (and ignored) in numeric literals
ok 58 - multiple underscores ok
ok 59 - underscores in fraction ok
ok 60 - underscores in whole part ok
ok 61 - single underscores are not ok directly after the dot
ok 62 - single underscores are ok
ok 63 - 0_1 is parsed as 0d1
ok 64 - +^1 == -2 as promised
ok 65 - 0xFFFFFFFFFFFFFFFF is not -1
ok 66 - Num === Num should be truthy, and not die
ok 67 - 1e0.atanh returns ∞
ok 68 - Num:U.Range gives -Inf to Inf range
ok 69 - Num.new coerces types that can .Num
ok 70 - ++Num
ok 71 - --Num
ok 72 - Num++
ok 73 - Num--
not ok 74 - prefix:<->(num)
ok 75 - abs(num)
ok 76 - infix:<+>(num, num)
not ok 77 - infix:<*>(num, num)
ok 78 - infix:<%>(num, num)
ok 79 - infix:<**>(num, num)
ok 80 - log(num)
ok 81 - ceiling(num)
ok 82 - sin(num)
ok 83 - asin(num)
ok 84 - cos(num)
ok 85 - acos(num)
ok 86 - tan(num)
ok 87 - atan(num)
ok 88 - sec(num)
ok 89 - asec(num)
ok 90 - cotan(num)
ok 91 - acotan(num)
ok 92 - sinh(num)
ok 93 - asinh(num)
ok 94 - cosh(num)
ok 95 - acosh(num)
ok 96 - tanh(num)
ok 97 - atanh(num)
ok 98 - Literal Nums close to the upper limit are not Inf
Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/98 subtests
Test Summary Report
-------------------
t/spec/S02-types/num.rakudo.moar (Wstat: 512 Tests: 98 Failed: 2)
Failed tests: 74, 77
Non-zero exit status: 2
Files=1, Tests=98, 5 wallclock secs ( 0.05 usr 0.00 sys + 4.54 cusr 0.08 csys = 4.67 CPU)
Result: FAIL
Makefile:619: recipe for target 't/spec/S02-types/num.t' failed
make: *** [t/spec/S02-types/num.t] Error 1
cpan@perlbuild2~/CPANPRC/rakudo (nom)$ make t/spec/S09-hashes/objecthash.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/S09-hashes/objecthash.t
ok 1 - Any-typed hash access (+)
ok 2 - and the hash really uses ===-semantics
ok 3 - Any-typed hash does not like Mu keys
ok 4 - returned key is correct
ok 5 - value-type semantics
ok 6 - non-conformant type dies
ok 7 - key type mismatch
ok 8 - value type mismatch
ok 9 - key and value type mismatch
ok 10 - .keys
ok 11 - .values
ok 12 - .kv types (1)
ok 13 - .kv types (2)
ok 14 - .pairs.key type
ok 15 - .pairs.value type
ok 16 - .elems
ok 17 - binding to typed objecthash elements
ok 18 - updated .elems
ok 19 - binding key type check failure
ok 20 - binding value type check failure
ok 21 - Hash.push fails when the resulting array conflicts with the type check
ok 22 - Hash.push without array creation is OK
ok 23 - Hash.push key type check failure
ok 24 - Hash.push value type check failure
ok 25 - list assignment + object hashes
not ok 26 - using Mu as a key (1) # TODO oh noes, it dies
ok 27 - \# SKIP oh noes, it dies
ok 28 - using Any as a key
ok 29 - \# SKIP oh noes, it dies
not ok 30 - check whatever access with Mu as key # TODO oh noes, it dies
ok 31 - .exists returns True on a %h{Any} in a TypedHash
ok 32 - declaring empty object hash on rhs of assignment to hash does not die with "Cannot look up attributes in a type object"
not ok 33 - empty hash listifies to "()"
not ok 34 - empty object hash listifies to "()"
ok 35 - New on an object hash instance produces an object hash
ok 36 - Clone of an object hash instance is an object hash
ok 37 - Can use mixin objects as keys
Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/37 subtests
Test Summary Report
-------------------
t/spec/S09-hashes/objecthash.rakudo.moar (Wstat: 512 Tests: 37 Failed: 2)
Failed tests: 33-34
Non-zero exit status: 2
Files=1, Tests=37, 0 wallclock secs ( 0.02 usr 0.01 sys + 0.61 cusr 0.02 csys = 0.66 CPU)
Result: FAIL
Makefile:619: recipe for target 't/spec/S09-hashes/objecthash.t' failed
make: *** [t/spec/S09-hashes/objecthash.t] Error 1
cpan@perlbuild2~/CPANPRC/rakudo (nom)$
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment