The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use strict;
use Test::Builder::Tester tests => 2;
## Test 1
my $desc = "not ok 1 - Attribute Name and Value";
test_out($desc);
test_fail(+2);
test_diag(" got: 'd'", " expected: 'e'", "Element 'a' do not have any attribute named c");
attrib_value("<a murug='b' c='d' e='f'/>", "c", "e", "Attribute Name and Value"); #FAIL
test_test( "Negative Test Case - Attribute Name and Value");
## Test 2
$desc = "ok 1 - Attribute Name and Value";
test_out($desc);
attrib_value("<a murug='b' c='d' e='f'/>", "c", "d", "Attribute Name and Value"); #PASS
test_test("Attribute Name and Value");