diff options
| author | Daniel Silverstone <dsilvers@digital-scurf.org> | 2012-07-07 15:13:39 +0100 |
|---|---|---|
| committer | Daniel Silverstone <dsilvers@digital-scurf.org> | 2012-07-07 15:13:39 +0100 |
| commit | 4a4a68d432a41038397d44faaebf23c05f7d544a (patch) | |
| tree | 4afd9af130ff4ab8854633d99db04b11bf50bfff /test/DOMTSHandler.pm | |
| parent | 1d4e7737b413ba1736b7f1b929e4355c2d750a6e (diff) | |
| download | libdom-4a4a68d432a41038397d44faaebf23c05f7d544a.tar.gz libdom-4a4a68d432a41038397d44faaebf23c05f7d544a.tar.bz2 | |
DOMTS: Add proper support for assertURIEquals
Diffstat (limited to 'test/DOMTSHandler.pm')
| -rw-r--r-- | test/DOMTSHandler.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/DOMTSHandler.pm b/test/DOMTSHandler.pm index e440f64..dd5a7a8 100644 --- a/test/DOMTSHandler.pm +++ b/test/DOMTSHandler.pm @@ -1116,7 +1116,7 @@ sub generate_assertion { case "assertURIEquals" { my $actual = $ats->{actual}; - my ($scheme, $path, $host, $file, $query, $fragment, $isAbsolute) = qw(NULL NULL NULL NULL NULL NULL NULL); + my ($scheme, $path, $host, $file, $name, $query, $fragment, $isAbsolute) = qw(NULL NULL NULL NULL NULL NULL NULL NULL); if (exists $ats->{scheme}) { $scheme = $ats->{scheme}; } @@ -1129,6 +1129,9 @@ sub generate_assertion { if (exists $ats->{file}) { $file = $ats->{file}; } + if (exists $ats->{name}) { + $name = $ats->{name}; + } if (exists $ats->{query}) { $query = $ats->{query}; } @@ -1139,7 +1142,7 @@ sub generate_assertion { $isAbsolute = $ats->{isAbsolute}; } - print "is_uri_equals($scheme, $path, $host, $file, $query, $fragment, $isAbsolute, $actual)" + print "is_uri_equals($scheme, $path, $host, $file, $name, $query, $fragment, $isAbsolute, $actual)" } } |