1%PointMarker +++
2
3# Just a scalar
4=== one_scalar
5+++ yaml
6--- foo
7
8+++ perl
9[ 'foo' ]
10
11
12=== one_scalar2
13+++ yaml
14---  foo
15
16+++ perl
17[ 'foo' ]
18
19
20=== two_scalar
21+++ yaml
22--- foo
23--- bar
24
25+++ perl
26[ 'foo', 'bar' ]
27
28
29#####################################################################
30# Support for literal multi-line scalars
31
32# Declarative multi-line scalar
33=== simple_multiline
34+++ yaml
35---
36  foo: >
37     bar
38     baz
39+++ perl
40[ { foo => "bar baz\n" } ]
41
42
43# Piped multi-line scalar
44=== indented
45+++ yaml
46---
47- |
48  foo
49  bar
50- 1
51+++ perl
52[ [ "foo\nbar\n", 1 ] ]
53
54
55# ... with a pointless hyphen
56=== indented
57+++ yaml
58---
59- |-
60  foo
61  bar
62- 1
63+++ perl
64[ [ "foo\nbar", 1 ] ]
65
66
67#####################################################################
68# Hitchhiker Scalar
69
70=== hitchhiker scalar
71+++ yaml
72--- 42
73+++ perl
74[ 42 ]
75+++ serializes
76
77#####################################################################
78# Newlines and tabs
79
80=== special characters
81+++ yaml
82foo: "foo\\\n\tbar"
83+++ perl
84[ { foo => "foo\\\n\tbar" } ]
85
86#####################################################################
87# Unprintable Characters
88
89=== unprintable
90+++ yaml
91--- "foo\n\x00"
92+++ perl
93[ "foo\n\0" ]
94
95#####################################################################
96# Ticker #32402
97
98# Tests a particular pathological case
99
100=== Pathological >< case
101+++ yaml
102---
103- value
104- '><'
105+++ perl
106[ [ 'value', '><' ] ]
107
108#####################################################################
109# Special Characters
110
111=== Special Characters
112+++ SKIP
113# Encoding failure
114+++ yaml
115---
116- "Ingy d\xC3\xB6t Net"
117+++ perl
118[ [ "Ingy d\xC3\xB6t Net" ] ]
119
120######################################################################
121# Check illegal characters that are in legal places
122
123=== Bang in a quote
124+++ yaml
125--- 'Wow!'
126+++ perl
127[ "Wow!" ]
128
129
130=== Ampersand in a quote
131+++ yaml
132--- 'This&that'
133+++ perl
134[ "This&that" ]
135
136