Bugzilla – Attachment 22831 Details for
Bug 11077
Correct silent warnings in C4/Auth.pm
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
Sample Test Program to confirm behaviour of busted vs current patch vs suggestion
perltest.pl (text/plain), 3.34 KB, created by
Mark Tompsett
on 2013-11-08 15:47:21 UTC
(
hide
)
Description:
Sample Test Program to confirm behaviour of busted vs current patch vs suggestion
Filename:
MIME Type:
Creator:
Mark Tompsett
Created:
2013-11-08 15:47:21 UTC
Size:
3.34 KB
patch
obsolete
>#!/usr/bin/perl -Tw > >my ( > $v1, $v2, > $s1, $s2, > $d1, $d2, > ); > >$v1=undef; >$v2=undef; >$s1 = $v1 // ''; >$s2 = $v2 // ''; >$d1 = defined($v1) ? $v1 : "UNDEFINED"; >$d2 = defined($v2) ? $v2 : "UNDEFINED"; >print "$d1 - $d2 = "; >if ($s1 ne $s2) { > print "NOT EQUAL\n"; >} >else { > print "EQUAL\n"; >} >if ($v1 && $v2 && $v1 ne $v2) { > print "CURRENT BUT NOT EQUAL\n"; >} >else { > print "CURRENT BUT EQUAL\n"; >} >if ($v1 ne $v2) { > print "BUSTED BUT NOT EQUAL\n"; >} >else { > print "BUSTED BUT EQUAL\n"; >} >print "=====\n"; > >$v1='A'; >$v2=undef; >$s1 = $v1 // ''; >$s2 = $v2 // ''; >$d1 = defined($v1) ? $v1 : "UNDEFINED"; >$d2 = defined($v2) ? $v2 : "UNDEFINED"; >print "$d1 - $d2 = "; >if ($s1 ne $s2) { > print "NOT EQUAL\n"; >} >else { > print "EQUAL\n"; >} >if ($v1 && $v2 && $v1 ne $v2) { > print "CURRENT BUT NOT EQUAL\n"; >} >else { > print "CURRENT BUT EQUAL\n"; >} >if ($v1 ne $v2) { > print "BUSTED BUT NOT EQUAL\n"; >} >else { > print "BUSTED BUT EQUAL\n"; >} >print "=====\n"; > >$v1=undef; >$v2='A'; >$s1 = $v1 // ''; >$s2 = $v2 // ''; >$d1 = defined($v1) ? $v1 : "UNDEFINED"; >$d2 = defined($v2) ? $v2 : "UNDEFINED"; >print "$d1 - $d2 = "; >if ($s1 ne $s2) { > print "NOT EQUAL\n"; >} >else { > print "EQUAL\n"; >} >if ($v1 && $v2 && $v1 ne $v2) { > print "CURRENT BUT NOT EQUAL\n"; >} >else { > print "CURRENT BUT EQUAL\n"; >} >if ($v1 ne $v2) { > print "BUSTED BUT NOT EQUAL\n"; >} >else { > print "BUSTED BUT EQUAL\n"; >} >print "=====\n"; > >$v1='A'; >$v2='A'; >$s1 = $v1 // ''; >$s2 = $v2 // ''; >$d1 = defined($v1) ? $v1 : "UNDEFINED"; >$d2 = defined($v2) ? $v2 : "UNDEFINED"; >print "$d1 - $d2 = "; >if ($s1 ne $s2) { > print "NOT EQUAL\n"; >} >else { > print "EQUAL\n"; >} >if ($v1 && $v2 && $v1 ne $v2) { > print "CURRENT BUT NOT EQUAL\n"; >} >else { > print "CURRENT BUT EQUAL\n"; >} >if ($v1 ne $v2) { > print "BUSTED BUT NOT EQUAL\n"; >} >else { > print "BUSTED BUT EQUAL\n"; >} >print "=====\n"; > >$v1='A'; >$v2='B'; >$s1 = $v1 // ''; >$s2 = $v2 // ''; >$d1 = defined($v1) ? $v1 : "UNDEFINED"; >$d2 = defined($v2) ? $v2 : "UNDEFINED"; >print "$d1 - $d2 = "; >if ($s1 ne $s2) { > print "NOT EQUAL\n"; >} >else { > print "EQUAL\n"; >} >if ($v1 && $v2 && $v1 ne $v2) { > print "CURRENT BUT NOT EQUAL\n"; >} >else { > print "CURRENT BUT EQUAL\n"; >} >if ($v1 ne $v2) { > print "BUSTED BUT NOT EQUAL\n"; >} >else { > print "BUSTED BUT EQUAL\n"; >} >print "=====\n"; > >$v1=undef; >$v2=''; >$s1 = $v1 // ''; >$s2 = $v2 // ''; >$d1 = defined($v1) ? $v1 : "UNDEFINED"; >$d2 = defined($v2) ? $v2 : "UNDEFINED"; >print "$d1 - $d2 = "; >if ($s1 ne $s2) { > print "NOT EQUAL\n"; >} >else { > print "EQUAL\n"; >} >if ($v1 && $v2 && $v1 ne $v2) { > print "CURRENT BUT NOT EQUAL\n"; >} >else { > print "CURRENT BUT EQUAL\n"; >} >if ($v1 ne $v2) { > print "BUSTED BUT NOT EQUAL\n"; >} >else { > print "BUSTED BUT EQUAL\n"; >} >print "=====\n"; > >$v1=undef; >$v2=0; >$s1 = $v1 // ''; >$s2 = $v2 // ''; >$d1 = defined($v1) ? $v1 : "UNDEFINED"; >$d2 = defined($v2) ? $v2 : "UNDEFINED"; >print "$d1 - $d2 = "; >if ($s1 ne $s2) { > print "NOT EQUAL\n"; >} >else { > print "EQUAL\n"; >} >if ($v1 && $v2 && $v1 ne $v2) { > print "CURRENT BUT NOT EQUAL\n"; >} >else { > print "CURRENT BUT EQUAL\n"; >} >if ($v1 ne $v2) { > print "BUSTED BUT NOT EQUAL\n"; >} >else { > print "BUSTED BUT EQUAL\n"; >}
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 11077
:
22042
|
22043
|
22120
|
22125
|
22665
|
22667
|
22805
|
22806
|
22831
|
22844
|
22854
|
23197
|
23198
|
23199
|
23214
|
23215
|
23217
|
23218
|
23219
|
23240
|
23268
|
23288