The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

FSEITZ / Quiq-1.225 / t / bin / Quiq / Http / Client / Lwp.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

              
#!/usr/bin/env perl
package Quiq::Http::Client::Lwp::Test;
use base qw/Quiq::Test::Class/;
use v5.10;
use strict;
use warnings;
# -----------------------------------------------------------------------------
sub test_loadClass : Init(1) {
    shift->useOk('Quiq::Http::Client::Lwp');
}
# -----------------------------------------------------------------------------
sub test_get : Ignore(2) {
    my $self = shift;
    my $data = Quiq::Http::Client::Lwp->get('http://localhost');
    $self->like($data,qr/<html>/i);
    $data = eval { Quiq::Http::Client::Lwp->get('http://unknownhostx.de') };
    if ($@) {
        $self->like($@,qr/HTTP-00001/);
    }
    else {
        # like $data,qr/Forbidden/;
        $self->ok($data);
    }
}
# -----------------------------------------------------------------------------
package main;
Quiq::Http::Client::Lwp::Test->runTests;
# eof