@@ -11,9 +11,15 @@ use WebserverTester;
11
11
12
12
use CPAN::Mini::Webserver;
13
13
14
+ my $name ;
14
15
eval {
15
16
my $server = CPAN::Mini::Webserver-> new(2963);
16
17
$server -> after_setup_listener;
18
+ if ($server -> author_type eq ' Whois' ) {
19
+ $name = ' Léon Brocard' ;
20
+ } else {
21
+ $name = ' Leon Brocard' ;
22
+ }
17
23
};
18
24
19
25
if ( $@ =~ / Please set up minicpan/ ) {
@@ -34,30 +40,30 @@ like( $html, qr/Welcome to CPAN::Mini::Webserver/ );
34
40
$html = html_page_ok(' /search/' , q => " buffy" );
35
41
like( $html , qr / Search for .buffy./ );
36
42
like( $html , qr / Acme-Buffy-1.5/ );
37
- like( $html , qr /Léon Brocard / );
43
+ like( $html , qr /$name / );
38
44
39
45
# show Leon
40
46
$html = html_page_ok(' ~lbrocard/' , ' q' => undef );
41
- like( $html , qr /Léon Brocard / );
47
+ like( $html , qr /$name / );
42
48
like( $html , qr / Acme-Buffy-1.5/ );
43
49
like( $html , qr / Tie-GHash-0.12/ );
44
50
45
51
# Show Acme-Buffy-1.5
46
52
$html = html_page_ok(' ~lbrocard/Acme-Buffy-1.5/' );
47
- like( $html , qr /Léon Brocard > Acme-Buffy-1.5/ );
53
+ like( $html , qr /$name > Acme-Buffy-1.5/ );
48
54
like( $html , qr / CHANGES/ );
49
55
like( $html , qr / demo_buffy\. pl/ );
50
56
51
57
# Show Acme-Buffy-1.5 CHANGES
52
58
$html = html_page_ok(' ~lbrocard/Acme-Buffy-1.5/Acme-Buffy-1.5/CHANGES' );
53
59
like( $html ,
54
- qr {Léon Brocard > Acme-Buffy-1.5 > Acme-Buffy-1.5/CHANGES} );
60
+ qr {$name > Acme-Buffy-1.5 > Acme-Buffy-1.5/CHANGES} );
55
61
like( $html , qr / Revision history for Perl extension Buffy/ );
56
62
57
63
# Show Acme-Buffy-1.5 CHANGES Buffy.pm
58
64
$html = html_page_ok(' ~lbrocard/Acme-Buffy-1.5/Acme-Buffy-1.5/lib/Acme/Buffy.pm' );
59
65
like( $html ,
60
- qr {Léon Brocard > Acme-Buffy-1.5 > Acme-Buffy-1.5/lib/Acme/Buffy.pm}
66
+ qr {$name > Acme-Buffy-1.5 > Acme-Buffy-1.5/lib/Acme/Buffy.pm}
61
67
);
62
68
like( $html , qr { An encoding scheme for Buffy the Vampire Slayer fans} );
63
69
like( $html , qr { See raw file} );
@@ -66,7 +72,7 @@ like( $html, qr{See raw file} );
66
72
$html = html_page_ok(
67
73
' /raw/~lbrocard/Acme-Buffy-1.5/Acme-Buffy-1.5/lib/Acme/Buffy.pm' );
68
74
like( $html ,
69
- qr {Léon Brocard > Acme-Buffy-1.5 > Acme-Buffy-1.5/lib/Acme/Buffy.pm}
75
+ qr {$name > Acme-Buffy-1.5 > Acme-Buffy-1.5/lib/Acme/Buffy.pm}
70
76
);
71
77
like( $html , qr { An encoding scheme for Buffy the Vampire Slayer fans} );
72
78
0 commit comments