use strict;
use lib -e 't' ? 't' : 'test';
use TestYAML tests => 25;
no_diff;
run_yaml_tests;
__DATA__
=== Date: Tue, 03 Jan 2006 18:04:56
+++ perl: { key1 => '>value1' }
+++ yaml
---
key1: '>value1'
=== Date: Wed, 04 Jan 2006 10:23:18
+++ perl: { key1 => '|value' }
+++ yaml
---
key1: '|value'
=== Date: Thu, 3 Mar 2005 14:12:10
+++ perl: { "foo,bar" => "baz"}
+++ yaml
---
'foo,bar': baz
=== Date: Wed, 9 Mar 2005 09:16:19
+++ perl: {'a,v' => 'c'}
+++ yaml
---
'a,v': c
=== Date: Fri, 18 Mar 2005 15:08:57
+++ perl: {'foo[bar', 'baz'}
+++ yaml
---
'foo[bar': baz
=== Date: Sun, 20 Mar 2005 16:32:50
+++ subject: Argument "E5" isn't numeric in multiplication (*)
+++ function: load_passes
+++ yaml
--- #YAML:1.0 !!perl/Blam::Game
board:
E5: R1
history:
- 1E5
=== Date: Sat, 26 Mar 2005 22:55:55
+++ perl: {"a - a" => 1}
+++ yaml
---
'a - a': 1
=== Date: Sun, 8 May 2005 15:42:04
+++ skip_this_for_now
+++ perl: [{q</.*/> => {any_key => { } }}]
+++ yaml
---
- /.*/:
any_key: {}
=== Date: Thu, 12 May 2005 14:57:20
+++ function: load_passes
+++ yaml
--- #YAML:1.0
WilsonSereno1998:
authors:
- Wilson, Jeffrey. A
- Paul C. Sereno
title: Early evolution and Higher-level phylogeny of sauropod dinosaurs
year: 1998
journal: Journal of Vertebrate Paleontology, memoir
volume: 5
pages: 1-68
WedelEtAl2000:
authors:
- Wedel, M. J.
- R. L. Cifelli
- R. K. Sanders
year: 2000
title: _Sauroposeidon proteles_, a new sauropod from the Early Cretaceous of Oklahoma.
journal: Journal of Vertebrate Paleontology
volume: 20
issue: 1
pages: 109-114
=== Date: Thu, 09 Jun 2005 18:49:01
+++ perl: {'test' => '|testing'}
+++ yaml
---
test: '|testing'
=== Date: Mon, 22 Aug 2005 16:52:47
+++ skip_this_for_now
+++ perl
my $y = {
ok_list_of_hashes => [
{one => 1},
{two => 2},
],
error_list_of_hashes => [
{-one => 1},
{-two => 2},
],
};
+++ yaml
---
error_list_of_hashes:
- -one: 1
- -two: 2
ok_list_of_hashes:
- one: 1
- two: 2
=== Date: Wed, 12 Oct 2005 17:16:48
+++ skip_this_for_now
+++ function: load_passes
+++ yaml
fontsize_small: '9px' # labelsmall
fontsize: '11px' # maintext, etc
fontsize_big: '12px' # largetext, button
fontsize_header: '13px' # sectionheaders
fontsize_banner: '16px' # title
=== Date: Mon, 07 Nov 2005 15:49:07
+++ perl: \ '|something'
+++ yaml
--- !!perl/ref
=: '|something'
=== Date: Thu, 24 Nov 2005 10:49:06
+++ perl: { url => 'http://www.test.com/product|1|2|333333', zzz => '' }
+++ yaml
---
url: http://www.test.com/product|1|2|333333
zzz: ''
=== Date: Sat, 3 Dec 2005 14:26:23
+++ perl
my @keys = qw/001 002 300 400 500/;
my $h = {};
map {$h->{$_} = 1} @keys;
$h;
+++ yaml
---
001: 1
002: 1
300: 1
400: 1
500: 1