{"atom":"regression/corpus-batch-1","family":"regression","slug":"corpus-batch-1","header":{"atom":"regression/corpus-batch-1","kind":"whole-program — a minimal repro, not yet reduced to an atom","source":"curated"},"axes":null,"cols":null,"engines":["rakudo-2026.07","rakupp-3.14.0"],"kinds":["ref","pp"],"defFrom":"rakupp:t/regression/corpus-batch-1.raku","counts":{"a":1,"f":0,"d":0,"c":0,"r":0,"n":0},"files":["atoms/regression/corpus-batch-1.grid"],"records":[["0001","","# Regression: three corpus-round-2 fixes (2026-07-22).\n# 1. glued CLI line-loop flags: -ne'CODE' / -pe'CODE' (shell strips quotes, so\n#    the code arrives glued to the flag cluster) were rejected as Illegal option.\n# 2. assigning an UNDEFINED value to a typed scalar type-checks: my Int $i = $u\n#    (where $u is Any) dies X::TypeCheck::Assignment like Rakudo; the matching\n#    type object (= Int) and Nil-reset still work; Failure still soaks in.\n# 3. big-part Rat->Num converts with a single rounding (long division), not two.\n\nmy $ok = True;\n\nmy $out = qqx{$*EXECUTABLE -ne'say \\$_.uc' << EOT\nhi\nthere\nEOT};\nunless $out eq \"HI\\nTHERE\\n\" {\n    say \"FAIL: -ne glued form: {$out.raku}\";\n    $ok = False;\n}\n\nmy $u;\nmy $died = False;\ntry { my Int $i = $u; CATCH { when X::TypeCheck::Assignment { $died = True } } }\nunless $died {\n    say 'FAIL: my Int $i = (undefined Any) should die';\n    $ok = False;\n}\n{\n    my Int $i = Int;      # matching type object is fine\n    my Int $j = 5; $j = Nil;\n    unless $j.raku eq 'Int' { say 'FAIL: Nil reset broken'; $ok = False; }\n}\n\nmy $q = 100000000000000000000000001 / 300000000000000000000000000;\nunless $q.Str eq '0.3333333333333333' {\n    say \"FAIL: big-Rat rounding: {$q}\";\n    $ok = False;\n}\n\nsay 'PASS' if $ok;","output PASS","a",["PASS","PASS"],0,[["budget","20s"]]]]}