Add tests for .native-descriptor on handles.

Raku · Dec 14, 2015 · ce74fd9 · ce74fd9
1 parent 9aee198
commit ce74fd9
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/S32-io/native-descriptor.t b/S32-io/native-descriptor.t
@@ -0,0 +1,15 @@
+use v6;
+use Test;
+
+plan 4;
+
+ok $*IN.native-descriptor >= 0, '$*IN has a naitve descriptor';
+ok $*OUT.native-descriptor >= 0, '$*OUT has a naitve descriptor';
+ok $*ERR.native-descriptor >= 0, '$*ERR has a naitve descriptor';
+
+my $path = "io-native-descriptor-testfile";
+given open($path, :w) {
+    ok .native-descriptor >= 0, 'file handle has a native descriptor';
+    .close;
+    unlink $path;
+}