Bernd Wurst
externals aktualisiert
Bernd Wurst commited 5c4f57e at 2016-01-04 06:28:53
<?php
# Basic test script for the php-iban library
# - Exit status is 0 in case of success, or the number of failed tests
# in case of failure
# Engine configuration
# - first we enable error display
ini_set('display_errors',1);
# - next we ensure that all errors are displayed
ini_set('error_reporting',E_ALL);
# include the library itself
require_once(dirname(dirname(__FILE__)) . '/php-iban.php');
# display registry contents
#print_r($_iban_registry);
# init
$errors=0;
# Try to validate an invalid IBAN
$iban = "(@#(*@*ZV-This is NOT an IBAN!";
if(verify_iban($iban)) {
print "ERROR: An invalid IBAN was validated!\n";
$errors++;
}
print "Hooray! - Invalid IBAN successfully rejected.\n\n";
# Broken IIBAN
$broken_iiban = 'AA12011123ZS6';
$suggestions = iban_mistranscription_suggestions($broken_iiban);
if(count($suggestions)) {
print "Hooray! Successfully derived '" . implode(',',$suggestions) . "' as likely transcription error source suggestion(s) for the incorrect IBAN $broken_iiban.\n";
}
else {
print "ERROR: Not able to ascertain suggested transcription error source(s) for $broken_iiban.\n";
}
print "\n";
# Loop through the registry's examples, validating
foreach($_iban_registry as $country) {
# get country code
$countrycode = $country['country'];
# start section
print "[$countrycode: " . iban_country_get_country_name($countrycode) . "]\n";
# output remaining country properties
print "Is a SEPA member? ";
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX