File: rel.t

package info (click to toggle)
libhttp-link-perl 0.001-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 156 kB
  • sloc: perl: 475; makefile: 2; sh: 1
file content (21 lines) | stat: -rw-r--r-- 378 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!perl

use Test::More;

BEGIN {
    use_ok('HTTP::Link');
}

is( HTTP::Link->rel( 'A', 'B' => 'C' ) => '<A>; rel="B C"' );
is(
    HTTP::Link->rel(
        'A',
        'B'      => 'C',
        anchor   => 'C',
        hreflang => 'E',
        media    => 'F',
        title    => 'G'
    ) => '<A>; rel="B C"; anchor="C"; hreflang="E"; media="F"; title="G"'
);

done_testing;