{"body":"use Test::Fuzz;\n\nsub bla (Int $bla, Int $ble --> UInt) is fuzzed {\n\t$bla + $ble\n}\n\nsub ble (Int $ble) is fuzzed {\n\tdie \"it is prime!\" if $ble.is-prime\n}\n\nsub bli (Int $bli) is fuzzed(:counter(3)) {}\n\nsub blo (UInt $blo) is fuzzed({counter => 5, test => not *.is-prime}) {\n\treturn $blo\n}\n\nsubset Prime of UInt where *.is-prime;\n\nfuzz-generator(\"Prime\") = (^Inf).grep: *.is-prime;\n\nsub blu (Prime $blu) is fuzzed({test => not *.is-prime}) {\n\treturn $blu * $blu\n}\n\nmulti MAIN(Bool :$fuzz!) {\n\tTest::Fuzz.run-tests\n}\n\nmulti MAIN {\n\tsay bla(1, 2);\n\tble(4);\n\tbli(42);\n\tsay blo(42);\n}","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/6ZaHz5cx","modified":1481333063,"id":"6ZaHz5cx","size":577,"lines":34,"own_paste":false,"theme":"","date":1481333063}