#!/usr/bin/perl

use warnings;
use strict;

use Test::More tests => 2;

BEGIN { use_ok('Atoms'); }

my @atoms = read_xyz("t/basic.atoms");

# Test remove duplicates
my @atoms_snapshot = @atoms;
foreach my $atom (@atoms_snapshot) {
        push @atoms, $atom;
}

@atoms = remove_duplicates(@atoms);
use Data::Dumper;
print Dumper \@atoms;
print Dumper \@atoms_snapshot;
ok(eq_set(\@atoms, \@atoms_snapshot), "Basic remove dups check");