|
Revision 2188, 0.6 kB
(checked in by karpet, 2 weeks ago)
|
first pass at the dom-specific property and metaname feature.
|
| Line | |
|---|
| 1 |
#!/usr/bin/perl |
|---|
| 2 |
use strict; |
|---|
| 3 |
use warnings; |
|---|
| 4 |
use Test::More tests => 3; |
|---|
| 5 |
use SwishTestUtils; |
|---|
| 6 |
|
|---|
| 7 |
$ENV{SWISH_DEBUG_NAMEDBUFFER} = 1; |
|---|
| 8 |
|
|---|
| 9 |
my $buf = SwishTestUtils::run_lint_stderr('properties.html'); |
|---|
| 10 |
|
|---|
| 11 |
like( $buf, qr!<swishtitle>properties test page title</swishtitle>!, |
|---|
| 12 |
"swishtitle" ); |
|---|
| 13 |
|
|---|
| 14 |
like( |
|---|
| 15 |
$buf, |
|---|
| 16 |
qr!<swishdescription>properties test page body\s+a bunch of space between</swishdescription>!, |
|---|
| 17 |
"swishdescription" |
|---|
| 18 |
); |
|---|
| 19 |
|
|---|
| 20 |
$buf = SwishTestUtils::run_lint_stderr( 'dom.xml', 'dom.conf' ); |
|---|
| 21 |
|
|---|
| 22 |
# the dot . is the TOKENPOS_BUMPER delimiter |
|---|
| 23 |
like( $buf, qr!<doc\.one\.two>green.yellow</doc\.one\.two>!, "dom" ); |
|---|
| 24 |
|
|---|
| 25 |
#diag($buf); |
|---|
