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 | 6f6f365c502da0cefd468755f55848301f7518e7 (patch) | |
| tree | 4afd9af130ff4ab8854633d99db04b11bf50bfff /test/DOMTSHandler.pm | |
| parent | 2d8858577a5cfb5878464f4a1b94eb13231ee63a (diff) | |
| download | libdom-6f6f365c502da0cefd468755f55848301f7518e7.tar.gz libdom-6f6f365c502da0cefd468755f55848301f7518e7.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)" } } |