<commit_before>print "Testing: put() method.\n" if $debug;
my $obj = $class->new;
$obj->put(
	['a', 'key', 'val'],
	['b', 'tag'],
	['c', 'comment'],
	['cd', 'cdata section'],
	['d', 'data section'],
	['e', 'tag'],
	['i', 'target', 'code'],
	['r', 'raw data'],
);
my $ret = $obj->flush;
my $right_ret = <<'END';
Attribute
Begin of tag
Comment
CData
Data
End of tag
Instruction
Raw data
END
ok($ret, $right_ret);<commit_msg>Rewrite to new version Tags2::Output::Debug.<commit_after>print "Testing: put() method.\n" if $debug;
my $obj = $class->new;
$obj->put(
	['a', 'key', 'val'],
	['b', 'tag'],
	['c', 'comment'],
	['cd', 'cdata section'],
	['d', 'data section'],
	['e', 'tag'],
	['i', 'target', 'code'],
	['r', 'raw data'],
);
my $ret = $obj->flush;
my $right_ret = <<'END';
Attribute
Begin of tag
Comment
CData
Data
End of tag
Instruction
Raw data
END
chomp $right_ret;
ok($ret, $right_ret);
{'fraction_non_alphanumeric': 0.2609182530795073, 'fraction_numerical': 0.0011198208286674132, 'mean_word_length': 5.123287671232877, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 9, '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': '3487997', 'n_tokens_mistral': 359, 'n_tokens_neox': 358, 'n_words': 111}