File: inchi2.pl

package info (click to toggle)
openbabel 2.2.0-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 37,188 kB
  • ctags: 47,193
  • sloc: cpp: 237,858; ansic: 85,555; cs: 22,219; java: 14,377; sh: 9,876; perl: 5,432; python: 4,319; pascal: 793; makefile: 683; xml: 97; ruby: 54
file content (18 lines) | stat: -rw-r--r-- 392 bytes parent folder | download | duplicates (8)
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);