IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 3484


Ignore:
Timestamp:
Mar 23, 2005, 9:27:25 AM (21 years ago)
Author:
jhoblitt
Message:

remove dead code

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/PS-IPP-Metadata-Config/t/06_multi.t

    r3481 r3484  
    33# Copyright (C) 2005  Joshua Hoblitt
    44#
    5 # $Id: 06_multi.t,v 1.1 2005-03-23 06:46:02 jhoblitt Exp $
     5# $Id: 06_multi.t,v 1.2 2005-03-23 19:27:25 jhoblitt Exp $
    66
    77use strict;
    … …  
    109109    ok( !defined( $config ), "missing MULTI declaration");
    110110}
    111 
    112 __END__
    113 {
    114 my $example = q{
    115 TYPE      CELL   EXTNAME   BIASSEC  CHIP    # comment
    116 CELL.00   CELL   CCD00     BSEC-00  CHIP.00 # foo
    117 CELL.01   CELL   CCD01     BSEC-01  CHIP.00 #
    118 };
    119     my $config = $config_parser->parse( $example );
    120     ok( defined( $config ), "TYPE with comments");
    121 }
    122 
    123 {
    124 my $example = q{
    125 TYPE      CELL   EXTNAME   BIASSEC  CHIP
    126 CELL.00   CELL   CCD00     BSEC-00  CHIP.00
    127 CELL.01   CELL   CCD01     BSEC-01  CHIP.00
    128 FOO METADATA
    129     TYPE      CELL   EXTNAME   BIASSEC
    130     CELL.00   CELL   CCD00     BSEC-00
    131     CELL.01   CELL   CCD01     BSEC-01
    132     FOO METADATA
    133         TYPE      CELL   EXTNAME
    134         CELL.00   CELL   CCD00
    135         CELL.01   CELL   CCD01
    136     END
    137 END
    138 };
    139     my $config = $config_parser->parse( $example );
    140     ok( defined( $config ), "TYPE not visible in lower scopes");
    141 }
    142 
    143 {
    144 my $example = q{
    145 TYPE      CELL   EXTNAME   BIASSEC  CHIP
    146 FOO METADATA
    147     CELL.00   CELL   CCD00     BSEC-00  CHIP.00
    148 END
    149 };
    150     my $config = $config_parser->parse( $example );
    151     ok( !defined( $config ), "TYPE not in scope");
    152 }
    153 
    154 {
    155 my $example = q{
    156 FOO METADATA
    157     TYPE      CELL   EXTNAME   BIASSEC  CHIP
    158 END
    159 CELL.00   CELL   CCD00     BSEC-00  CHIP.00
    160 };
    161     my $config = $config_parser->parse( $example );
    162     ok( !defined( $config ), "TYPE not in scope");
    163 }
    164 
    165 {
    166 my $example = q{
    167 FOO METADATA
    168     TYPE      CELL   EXTNAME   BIASSEC  CHIP
    169 END
    170 BAR METADATA
    171     CELL.00   CELL   CCD00     BSEC-00  CHIP.00
    172 END
    173 };
    174     my $config = $config_parser->parse( $example );
    175     ok( !defined( $config ), "TYPE not in scope");
    176 }
    177 
    178 
    179 {
    180 my $example = q{
    181 TYPE      CELL   EXTNAME   BIASSEC  CHIP
    182 CELL.00   CELL   CCD00     BSEC-00
    183 CELL.01   CELL   CCD01     BSEC-01  CHIP.00
    184 };
    185     my $config = $config_parser->parse( $example );
    186     ok( !defined( $config ), "TYPE with missing parameters");
    187 }
    188 
    189 {
    190 my $example = q{
    191 TYPE      CELL   EXTNAME   BIASSEC  CHIP
    192 TYPE      CELL   EXTNAME   BIASSEC  CHIP
    193 CELL.00   CELL   CCD00     BSEC-00  CHIP.00
    194 CELL.01   CELL   CCD01     BSEC-01  CHIP.00
    195 };
    196     my $config = $config_parser->parse( $example );
    197     ok( !defined( $config ), "TYPE redefinition");
    198 }
    199 
    200 {
    201 my $example = q{
    202 CELL.00   CELL   CCD00     BSEC-00  CHIP.00
    203 CELL.01   CELL   CCD01     BSEC-01  CHIP.00
    204 };
    205     my $config = $config_parser->parse( $example );
    206     ok( !defined( $config ), "missing TYPE declaration");
    207 }
Note: See TracChangeset for help on using the changeset viewer.