- my $decoded = unbro ((scalar read_file $test), 1_000_000);
- is $decoded, $expected, "$test";
+ my $decoded = unbro ((scalar read_binary $test), 1_000_000);
+ is $decoded, $expected, "$test (two-argument unbro)";
+
+ $decoded = unbro scalar read_binary $test;
+ is $decoded, $expected, "$test (one-argument unbro)";