Add tested synopsis examples

jonathanstowe · Sep 14, 2017 · 0122014 · 0122014
1 parent 73008c5
commit 0122014
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 0 deletions.
diff --git a/examples/reader b/examples/reader
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl6
+
+use MQ::Posix;
+
+my $queue = MQ::Posix.new(name => 'test-queue', :create, :r );
+
+react {
+    whenever $queue.Supply -> $buf {
+        say $buf.decode;
+    }
+    whenever signal(SIGINT) {
+        $queue.close;
+        $queue.unlink;
+        done;
+    }
+}
+
diff --git a/examples/writer b/examples/writer
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl6
+
+use MQ::Posix;
+
+my $queue = MQ::Posix.new(name => 'test-queue', :create, :w );
+
+await $queue.send("some test message", priority => 10);
+
+$queue.close;