#!/home/ivan/bin/perl
use strict;
use warnings;
use Test::More tests => 1;
use Chemistry::File::PDB;
my $mol = Chemistry::MacroMol->read("test.pdb");
$mol->write("out.pdb");
my ($got, $expected);
{
local $/;
open F, "<test.pdb" or die "couldn't open test.pdb: $!\n";
$expected = <F>;
open F, "<out.pdb" or die "couldn't open test.pdb: $!\n";
$got = <F>;
}
$got =~ s/^.*?\n.*?\n//s; # chop off the header
is($got, $expected, "pdb write test");