File: inchi2.pl

package info (click to toggle)
openbabel 2.3.2%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 75,308 kB
  • ctags: 41,952
  • sloc: cpp: 321,252; ansic: 89,228; python: 7,262; perl: 6,418; pascal: 793; sh: 194; xml: 97; ruby: 55; makefile: 47; java: 23
file content (18 lines) | stat: -rw-r--r-- 392 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl
use Env qw(TESTDATADIR);

if (defined $TESTDATADIR) {
  $INCHIDIR="$TESTDATADIR/../inchi";
} else {
  $INCHIDIR="./inchi";
}

system("./inchiwrite $INCHIDIR/SamplesTechMan.sdf $INCHIDIR/SamplesTechMan.txt 2>/dev/null");

# If the program failed to execute, ignore the test
if ($? == -1) {
    print "1..0 skip because program would not run";
}

# Otherwise exit
exit($? >>8);