<commit_before>#! perl -w

use Parrot::Test tests => 9;
use Test::More;

TODO: {
  local $TODO = "readline not yet ported to PIO";

# It would be very embarrassing if these didn't work...
open FOO, ">temp.file";
print FOO "2\n1\n";
close FOO;
output_is(<<'CODE', <<'OUTPUT', "open and readline");
	open I0, "temp.file"
	set S0, ""
	set S1, ""
	readline S0, I0
	readline S1, I0
	print S1
	print S0
	end
CODE<commit_msg>Some tinderboxen don't like TODO tests<commit_after>#! perl -w

use Parrot::Test tests => 9;
use Test::More;

SKIP: {
  skip "readline not yet ported to PIO", 3;

# It would be very embarrassing if these didn't work...
open FOO, ">temp.file";
print FOO "2\n1\n";
close FOO;
output_is(<<'CODE', <<'OUTPUT', "open and readline");
	open I0, "temp.file"
	set S0, ""
	set S1, ""
	readline S0, I0
	readline S1, I0
	print S1
	print S0
	end
CODE
{'fraction_non_alphanumeric': 0.15204678362573099, 'fraction_numerical': 0.029239766081871343, 'mean_word_length': 3.8914285714285715, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2167670', 'n_tokens_mistral': 364, 'n_tokens_neox': 353, 'n_words': 122}