The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

CORION / HTTP-Request-Diff-0.07 / t / 03-table.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111

              
#!perl
use 5.020;
use stable 'postderef';
use Test2::V0 '-no_srand';
use Data::Dumper;
use HTTP::Request;
use YAML::PP 'Load';
use HTTP::Request::Diff;
# Our hacky data parser
my $tests = do { local($/); <DATA> };
my @tests = map {;
    my @pairs = /--- (\w+)\s+(.*?)\r?\n(?=---|\z)/msg
        or die "Bad line: $_";
    +{
        @pairs
    }
    } $tests =~ /(?:===\s+)(.*?)(?====|\z)/msg;
plan tests => 1 * @tests;
for my $block (@tests) {
    $block->{reference} =~ s!\r?\n!\r\n!sg;
    $block->{actual} =~ s!\r?\n!\r\n!sg;
    my $reference = $block->{reference};
    my ($name_v)  = $reference =~ m!^(.*?)$!;
    my $actual    = $block->{actual};
    my $result    = $block->{diff};
    my $name      = $block->{name} // $name_v;
    my $todo;
    $todo = todo( $block->{todo})
        if $block->{todo};
    my @constructor;
    if( $block->{constructor} ) {
        @constructor = map { %$_ } @{ Load( $block->{constructor}) };
    }
    my $diff = HTTP::Request::Diff->new(reference => $reference, @constructor);
    my @diff = $diff->diff( $actual );
    my $table = $diff->as_table( @diff );
    is $table, $result, $name;
};
done_testing();
__DATA__
===
--- reference
GET / HTTP/1.1
--- actual
GET /foo HTTP/1.1
--- diff
+----------+-----------+--------+
| Type     | Reference | Actual |
+----------+-----------+--------+
| uri.path | /         | /foo   |
+----------+-----------+--------+
===
--- name
Missing fields
--- reference
GET / HTTP/1.1
Accept-Language: fi
--- actual
GET / HTTP/1.1
--- diff
+-------------------------+-----------+-----------+
| Type                    | Reference | Actual    |
+-------------------------+-----------+-----------+
| headers.Accept-Language | fi        | <missing> |
+-------------------------+-----------+-----------+
===
--- name
UTF-8 stuff
--- todo
Unicode::GCString is needed for this test to pass
--- reference
GET / HTTP/1.1
Content-Charset: UTF-8
Ümloud
--- actual
GET / HTTP/1.1
Content-Charset: UTF-8
Umloud
--- diff
+-----------------+-----------+--------+
| Type            | Reference | Actual |
+-----------------+-----------+--------+
| request.content | Ümloud    | Umloud |
+-----------------+-----------+--------+
===
--- name
Synopsis
--- reference
GET /?foo=bar;session=123 HTTP/1.1
--- actual
GET /?session=123 HTTP/1.1
--- diff
+-----------+-----------+-----------+
| Type      | Reference | Actual    |
+-----------+-----------+-----------+
| query.foo | bar       | <missing> |
+-----------+-----------+-----------+