IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 5335


Ignore:
Timestamp:
Oct 14, 2005, 1:31:39 PM (21 years ago)
Author:
jhoblitt
Message:

rename id -> file_id

Location:
trunk/PS-IPP-PSFTP
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP/Parser.pm

    r5253 r5335  
    11# Copyright (C) 2005  Joshua Hoblitt
    22#
    3 # $Id: Parser.pm,v 1.3 2005-10-08 02:09:05 jhoblitt Exp $
     3# $Id: Parser.pm,v 1.4 2005-10-14 23:31:39 jhoblitt Exp $
    44
    55package PS::IPP::PSFTP::Parser;
    … …  
    1212use vars qw( @FIELDS @REQUIRED_FIELDS );
    1313
    14 @FIELDS = qw( date time id type attributes size md5 url );
    15 @REQUIRED_FIELDS = qw( date time id type size md5 url );
     14@FIELDS = qw( date time file_id type attributes size md5 url );
     15@REQUIRED_FIELDS = qw( date time file_id type size md5 url );
    1616
    1717sub new
    … …  
    110110use vars qw( @FIELDS );
    111111
    112 @FIELDS = qw( stamp id type attributes size md5 url );
     112@FIELDS = qw( stamp file_id type attributes size md5 url );
    113113
    114114__PACKAGE__->mk_accessors( @FIELDS );

  • trunk/PS-IPP-PSFTP/t/02_parse.t

    r5251 r5335  
    33# Copyright (C) 2005  Joshua Hoblitt
    44#
    5 # $Id: 02_parse.t,v 1.4 2005-10-08 01:56:05 jhoblitt Exp $
     5# $Id: 02_parse.t,v 1.5 2005-10-14 23:30:48 jhoblitt Exp $
    66
    77use strict;
    … …  
    3232    my $item = pop @items;
    3333    is($item->stamp,   "2005-08-06T19:30:01",           "correct time stamp");
    34     is($item->id,      "telescope_2005-08-06T19:30:01", "correct id");
     34    is($item->file_id, "telescope_2005-08-06T19:30:01", "correct file id");
    3535    is($item->type,    "metadata",                      "correct type");
    3636    is($item->size,    8640,                            "correct size");
    … …  
    4444    my $item = pop @items;
    4545    is($item->stamp,   "2005-08-06T19:40:01",           "correct time stamp");
    46     is($item->id,      "telescope_2005-08-06T19:40:01", "correct id");
     46    is($item->file_id, "telescope_2005-08-06T19:40:01", "correct file id");
    4747    is($item->type,    "metadata",                      "correct type");
    4848    is($item->size,    8640,                            "correct size");
    … …  
    5555    my $item = pop @items;
    5656    is($item->stamp,   "2005-08-06T19:50:01",           "correct time stamp");
    57     is($item->id,      "telescope_2005-08-06T19:50:01", "correct id");
     57    is($item->file_id, "telescope_2005-08-06T19:50:01", "correct file id");
    5858    is($item->type,    "metadata",                      "correct type");
    5959    is($item->size,    8640,                            "correct size");
    … …  
    7777    my $item = pop @items;
    7878    is($item->stamp,   "2005-08-06T19:30:01",           "correct time stamp");
    79     is($item->id,      "telescope_2005-08-06T19:30:01", "correct id");
     79    is($item->file_id, "telescope_2005-08-06T19:30:01", "correct file id");
    8080    is($item->type,    "metadata",                      "correct type");
    8181    is($item->size,    8640,                            "correct size");
Note: See TracChangeset for help on using the changeset viewer.