[master] unique-ptr setf self test (#43)

modules/unique-ptr.dt

@@ -152,6 +152,8 @@ Expands to a `UniquePtr` definition over the relevant type.
     (def setf-move-assign
       (fn extern bool ((dst (p (UniquePtr (uq T))))
                        (src (rv-ref (UniquePtr (uq T)))))
+        (and (p= dst src)
+             (return))
         (if (not (null (@:@ dst pointer)))
             (do (free' (core-@:@ dst pointer))
                 0)

t/015up/006up-move-self.t

@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+$ENV{"DALE_TEST_ARGS"} ||= "";
+my $test_dir = $ENV{"DALE_TEST_DIR"} || ".";
+$ENV{PATH} .= ":.";
+
+use Data::Dumper;
+use Test::More tests => 3;
+
+my @res = `dalec $ENV{"DALE_TEST_ARGS"} $test_dir/t/src/up-move-self.dt -o up-move-self `;
+is_deeply(\@res, [], 'No compilation errors');
+@res = `./up-move-self`;
+is($?, 0, 'Program executed successfully');
+
+chomp for @res;
+
+is_deeply(\@res, [
+'0 100 0',
+],
+'Got correct results');
+
+`rm up-move-self`;
+
+1;

t/src/up-move-self.dt

@@ -0,0 +1,20 @@
+(import cstdio)
+(import macros)
+(import unique-ptr)
+
+(std.concepts.instantiate UniquePtr int)
+
+(def main
+  (fn extern-c int (void)
+    (let ((myptr  (UniquePtr int))
+          (myptr2 (UniquePtr int))
+          (myptr3 (UniquePtr int))
+          (myint  \ (malloc' 1 int)))
+      (setf myint  100)
+      (init myptr myint)
+      (setv myptr2 (move myptr))
+      (setv myptr2 (move myptr2))
+      (printf "%d %d %d\n" (cast (get myptr) intptr)
+                           (@ myptr2)
+                           (cast (get myptr3) intptr))
+      0)))