Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: timo/dot6
base: 6b796a3ff4
...
head fork: timo/dot6
compare: 7052999b8d
Checking mergeability… Don't worry, you can still create the pull request.
  • 3 commits
  • 3 files changed
  • 0 commit comments
  • 1 contributor
Showing with 13 additions and 3 deletions.
  1. +2 −2 lib/Graphviz/Dot.pm
  2. +1 −1  t/02-parse-dot.t
  3. +10 −0 t/03-gen-and-parse.t
View
4 lib/Graphviz/Dot.pm
@@ -75,8 +75,8 @@ our class Graph is export {
method dot(--> Str) {
my Str $r = qq:to/EOF/
graph $.name \{
- { ($_.dot for %.node.values).join("\n ") }
- { ($_.dot for @.edge).join("\n ") }
+ { ($_.dot for %.node.values).join("\n ") }
+ { ($_.dot for @.edge).join("\n ") }
}
EOF
}
View
2  t/02-parse-dot.t
@@ -9,4 +9,4 @@ lives_ok { Graphviz::Grammar::Dot.parse(q[
B;
C -- A;
}
-]) }
+]) }, "parse a simple example";
View
10 t/03-gen-and-parse.t
@@ -0,0 +1,10 @@
+use Test;
+use Graphviz::Grammar;
+use Graphviz::Dot;
+
+plan 1;
+
+{
+ my $a = Graph.new: :items([Edge.new(Node.new("A"), Node.new("B"))]);
+ lives_ok { Graphviz::Grammar::Dot.parse($a.dot) }, "parse a generated dot document";
+}

No commit comments for this range

Something went wrong with that request. Please try again.