File: cif_cod_numbers_001.chk

package info (click to toggle)
cod-tools 3.11.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 159,136 kB
  • sloc: perl: 58,707; sh: 41,323; ansic: 7,268; xml: 1,982; yacc: 1,117; makefile: 731; python: 166
file content (20 lines) | stat: -rwxr-xr-x 443 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl

use strict;
use warnings;

use DBI;

print "Test skipped - not running tests requiring network access\n";
exit 1;

local $SIG{__WARN__} = sub {};

my $dbh = DBI->connect( "dbi:mysql:" .
                        "hostname=www.crystallography.net;".
                        "dbname=cod;".
                        "user=cod_reader;" );
if( !$dbh ) {
    print "Test skipped - could not connect to MySQL database\n";
    exit 1;
}