view release on metacpan or  search on metacpan

t/01.values.t  view on Meta::CPAN

        "not table-layout: 'broken'" );
    
    
    foreach my $value qw( collapse  separate  inherit ) {
        ok( is_border_collapse_value( $value ),
            "border-collapse: '$value'" );
    }
    ok( ! is_border_collapse_value( 'join' ),
        "not border-collapse: 'join'" );
    
    
    my @spacings = ( '5px', '5px 2px', 'inherit' );
    foreach my $value ( @spacings ) {
        ok( is_border_spacing_value( $value ),
            "border-spacing: '$value'" );
    }
    ok( ! is_border_spacing_value( '8px 5px 2px' ),
        "not border-spacing: '8px 5px 2px'" );
    
    
    foreach my $value qw( show  hide  inherit ) {
        ok( is_empty_cells_value( $value ),
            "empty-cells: '$value'" );
    }
    ok( ! is_empty_cells_value( 'drain' ),
        "not empty-cells: 'drain'" );
}

# test visual effects
{
    foreach my $value qw( visible  hidden  scroll  auto  inherit ) {
        ok( is_overflow_value( $value ),
            "overflow: '$value'" );
    }
    ok( ! is_overflow_value( '8' ),
        "not overflow: '8'" );
    
    
    my @clips = (
            'rect(25px,20px,0,50px)', 'rect( 5px, 10px, 20px, auto )',
            'auto', 'inherit'
        );
    foreach my $value ( @clips ) {
        ok( is_clip_value( $value ),
            "clip: '$value'" );
    }
    ok( ! is_clip_value( 'square' ),
        "not clip: 'square'" );
    
    
    foreach my $value qw( visible  hidden  collapse  inherit ) {
        ok( is_visibility_value( $value ),
            "visibility: '$value'" );
    }
    ok( ! is_visibility_value( 'invisible' ),
        "not visibility: 'invisible'" );
}

# test user interface
{
    my @cursors = qw(
            auto       crosshair  default    pointer    move       e-resize
            ne-resize  nw-resize  n-resize   se-resize  sw-resize  s-resize
            w-resize   text       wait       help       progress
            inherit
        );
    foreach my $value ( @cursors ) {
        ok( is_cursor_value( $value ),
            "cursor: '$value'" );
    }
    ok( is_cursor_value( 'url(blah.gif) crosshair' ),
        "cursor: 'url(blah.gif) crosshair'" );
    ok( ! is_cursor_value( 'url(blah.gif)' ),
        "not cursor: 'url(blah.gif)'" );
    ok( ! is_cursor_value( 'crosshair sw-resize' ),
        "not cursor: 'crosshair sw-resize'" );
    
    
    my @outline_style_values = qw(
            none     hidden  dotted  dashed  solid
            double   groove  ridge   inset   outset
            inherit
        );
    foreach my $value ( @outline_style_values ) {
        ok( is_outline_style_value( $value ),
            "outline-style: '$value'" );
    }
    ok( ! is_outline_style_value( 'groovy' ),
        "not outline-style: 'groovy'" );
    
    # other outline-width values are tested by numerical values above
    foreach my $value qw( thin  medium  thick  inherit  2px ) {
        ok( is_outline_width_value( $value ),
            "outline-width: '$value'" );
    }
    ok( ! is_outline_width_value( 'stroke' ),
        "not outline-width: 'stroke'" );
    
    # other outline-color values are tested by colours above
    my @colours = ( 'inherit', 'invert', 'red', '#000' );
    foreach my $value ( @colours ) {
        ok( is_outline_colour_value( $value ),
            "outline-color: '$value'" );
    }
    ok( ! is_outline_colour_value( 'transparent' ),
        "not outline-color: 'transparent'" );
    ok( ! is_outline_colour_value( '#cc' ),
        "not outline-color: '#cc'" );
}