Yet Another CPAN Grep

TAP-DOM ( S/SC/SCHWIGON/TAP-DOM-0.98.tar.gz, SCHWIGON, 2023; MetaCPAN )

TAP-DOM/t/tap_dom_document_data.t ( view source; MetaCPAN )

fo'},           'flags.fpu: 1',                             "no lowercase - no ignore - 4");

# 2
isnt($dom2->{document_data}{'CPUINFO/processor'}, 3,                                          "no lowe

}{'CPU family'},        6,                                          "no lowercase - ignore - 2");
isnt($dom2->{document_data}{'CPU-model'},         'Intel(R) Core(TM) i7-3667U CPU @ 2.00GHz', "no lowe

 "no lowercase - ignore - 4");

# 3
isnt($dom3->{document_data}{'CPUINFO/processor'}, 3,                                          "lowercase - no ignore - 1");
isnt($dom3->{document_data}{'CPU family'

TAP-DOM ( S/SC/SCHWIGON/TAP-DOM-0.98.tar.gz, SCHWIGON, 2023; MetaCPAN )

TAP-DOM/t/tap_dom_key_values_case_insensitive.t ( view source; MetaCPAN )

==

# no original uppercases
isnt($dom->{document_data}{'CPU-model'},         'Intel(R) Core(TM) i7-3667U CPU @ 2.00GHz', "no uppercase - hash - key contains dashes");
isnt($dom->{document_data}{'flag

hash - key contains dots");
isnt($dom->{document_data}{'Elapsed-Time[ms]'},  13,                                         "no uppercase - hash - key contains brackets");
isnt($dom->{document_data}{'CPU

sor'}, 3,                                          "no uppercase - hash - key contains slashes");
isnt($dom->{document_data}{'CPU family'},        6,                                          "no upper

TAP-DOM ( S/SC/SCHWIGON/TAP-DOM-0.98.tar.gz, SCHWIGON, 2023; MetaCPAN )

TAP-DOM/t/tap_dom4.t ( view source; MetaCPAN )

($tapdata->{lines}[2]{is_ok},   1,     "[2] is_ok");
isnt($tapdata->{lines}[2]{raw},       "ok 1 - use Data::DPath;",     "[2] stripped raw");
isnt($tapdata->{lines}[2]{as_string}, "ok 1 - use Data::D

] undefined raw");
ok((not defined $tapdata->{lines}[2]{as_string}), "[2] undefined as_string");

isnt($tapdata->{lines}[6]{explanation}, "spec only", "[6] stripped explanation");
ok((not defined $tap