File: run_like.t

package info (click to toggle)
libtest-base-perl 0.88-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 668 kB
  • ctags: 106
  • sloc: perl: 931; makefile: 2
file content (24 lines) | stat: -rw-r--r-- 560 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use Test::Base tests => 3;

run_like('html', 're1');
run_like 'html', 're2';
run_like html => qr{stylesheet};

__END__

=== Like Test
--- html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="he" dir="rtl">
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

        <link rel="stylesheet" href="/htdocs/default.css" type="text/css" />
--- re1 regexp=xis
<!doctype
.*
<html
.*
--- re2 regexp
1\.0 Strict