t/roundtrip.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 14;
   7
   8 use EmailReminder::EventList;
   9 use EmailReminder::Event;
  10
  11 # load the data in
  12 my $er_orig = EmailReminder::EventList->new('t/data.xml', 1);
  13
  14 # save it out again
  15 my $tmp_file = "/tmp/data_$$.xml";
  16 $er_orig->save(0, $tmp_file);
  17
  18 # load it back and compare all elements
  19 my $er_new = EmailReminder::EventList->new($tmp_file, 1);
  20
  21 # compare top level info
  22 is($er_orig->_get_user_fname, $er_new->_get_user_fname, 'fname');
  23 is($er_orig->_get_user_lname, $er_new->_get_user_lname, 'lname');
  24 is($er_orig->get_user_email, $er_new->get_user_email, 'email');
  25
  26 # compare all the events and make sure they are the same too
  27 my @events_orig = $er_orig->get_events();
  28 my @events_new = $er_new->get_events();
  29
  30 for ( my $i = 0; $i < @events_orig; $i++ ) {
  31     is($events_orig[$i], $events_new[$i], "event $i");
  32 }