external/php-iban/utils/test.php (5c4f57e) - webinterface.git

test.php

<?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? ";
 if(iban_country_is_sepa($countrycode)) { print "Yes"; } else { print "No"; }
 print ".\n";

# get example iban
 $iban = $country['iban_example'];

# output example iban properties one by one
 print "Example IBAN: " . iban_to_human_format($iban) . "\n";
 print " - country  " . iban_get_country_part($iban) . "\n";
 print " - checksum " . iban_get_checksum_part($iban) . "\n";
 print " - bban     " . iban_get_bban_part($iban) . "\n";
 print " - bank     " . iban_get_bank_part($iban) . "\n";
 print " - branch   " . iban_get_branch_part($iban) . "\n";
 print " - account  " . iban_get_account_part($iban) . "\n";
 
 # output all properties
 #$parts = iban_get_parts($iban);
 #print_r($parts);
 
 # verify
 print "\nChecking validity... ";
 if(verify_iban($iban)) {
  print "IBAN $iban is valid.\n";
 }
 else {
  print "ERROR: IBAN $iban is invalid.\n";
  $errors++;
 }

print "\n";
}

exit($errors);

webinterface.git

externals aktualisiert