Add tests for various output implementations

Author: thekid

src/test/php/lang/ast/unittest/cli/ToArchiveTest.class.php

@@ -0,0 +1,46 @@
+<?php namespace lang\ast\unittest\cli;
+
+use io\{File, Folder};
+use lang\Environment;
+use lang\archive\ArchiveClassLoader;
+use unittest\{After, Assert, Before, Test};
+use xp\compiler\ToArchive;
+
+class ToArchiveTest {
+  private $folder, $archive;
+
+  #[Before]
+  public function folder() {
+    $this->folder= new Folder(realpath(Environment::tempDir()), '.xp-'.crc32(self::class));
+    $this->folder->exists() && $this->folder->unlink();
+    $this->folder->create();
+
+    $this->archive= new File($this->folder, 'dist.xar');
+    $this->archive->touch();
+  }
+
+  #[After]
+  public function cleanup() {
+    $this->folder->unlink();
+  }
+
+  #[Test]
+  public function can_create() {
+    new ToArchive($this->archive);
+  }
+
+  #[Test]
+  public function write_to_target_then_load_via_class_loader() {
+    $class= '<?php class Test { }';
+
+    $fixture= new ToArchive($this->archive);
+    with ($fixture->target('Test.php'), function($out) use($class) {
+      $out->write($class);
+      $out->flush();
+      $out->close();
+    });
+    $fixture->close();
+
+    Assert::equals($class, (new ArchiveClassLoader($this->archive->getURI()))->loadClassBytes('Test'));
+  }
+}

src/test/php/lang/ast/unittest/cli/ToFileTest.class.php

@@ -0,0 +1,45 @@
+<?php namespace lang\ast\unittest\cli;
+
+use io\{File, Folder};
+use lang\Environment;
+use lang\FileSystemClassLoader;
+use unittest\{After, Assert, Before, Test};
+use xp\compiler\ToFile;
+
+class ToFileTest {
+  private $folder, $target;
+
+  #[Before]
+  public function folder() {
+    $this->folder= new Folder(realpath(Environment::tempDir()), '.xp-'.crc32(self::class));
+    $this->folder->exists() && $this->folder->unlink();
+    $this->folder->create();
+
+    $this->target= new File($this->folder, 'Test.class.php');
+  }
+
+  #[After]
+  public function cleanup() {
+    $this->folder->unlink();
+  }
+
+  #[Test]
+  public function can_create() {
+    new ToFile($this->target);
+  }
+
+  #[Test]
+  public function write_to_target_then_load_via_class_loader() {
+    $class= '<?php class Test { }';
+
+    $fixture= new ToFile($this->target);
+    with ($fixture->target('Test.php'), function($out) use($class) {
+      $out->write($class);
+      $out->flush();
+      $out->close();
+    });
+    $fixture->close();
+
+    Assert::equals($class, (new FileSystemClassLoader($this->folder->getURI()))->loadClassBytes('Test'));
+  }
+}

src/test/php/lang/ast/unittest/cli/ToFolderTest.class.php

@@ -0,0 +1,51 @@
+<?php namespace lang\ast\unittest\cli;
+
+use io\{Folder, File};
+use lang\Environment;
+use lang\FileSystemClassLoader;
+use unittest\{After, Assert, Before, Test};
+use xp\compiler\ToFolder;
+
+class ToFolderTest {
+  private $folder;
+
+  #[Before]
+  public function folder() {
+    $this->folder= new Folder(realpath(Environment::tempDir()), '.xp-'.crc32(self::class));
+    $this->folder->exists() && $this->folder->unlink();
+    $this->folder->create();
+  }
+
+  #[After]
+  public function cleanup() {
+    $this->folder->unlink();
+  }
+
+  #[Test]
+  public function can_create() {
+    new ToFolder($this->folder);
+  }
+
+  #[Test]
+  public function dash_special_case() {
+    with ((new ToFolder($this->folder))->target('-'), function($out) {
+      $out->write('<?php ...');
+    });
+    Assert::true((new File($this->folder, 'out'.\xp::CLASS_FILE_EXT))->exists());
+  }
+
+  #[Test]
+  public function write_to_target_then_load_via_class_loader() {
+    $class= '<?php class Test { }';
+
+    $fixture= new ToFolder($this->folder);
+    with ($fixture->target('Test.php'), function($out) use($class) {
+      $out->write($class);
+      $out->flush();
+      $out->close();
+    });
+    $fixture->close();
+
+    Assert::equals($class, (new FileSystemClassLoader($this->folder->getURI()))->loadClassBytes('Test'));
+  }
+}

src/test/php/lang/ast/unittest/cli/ToStreamTest.class.php

@@ -0,0 +1,29 @@
+<?php namespace lang\ast\unittest\cli;
+
+use io\streams\MemoryOutputStream;
+use unittest\{After, Assert, Before, Test};
+use xp\compiler\ToStream;
+
+class ToStreamTest {
+
+  #[Test]
+  public function can_create() {
+    new ToStream(new MemoryOutputStream());
+  }
+
+  #[Test]
+  public function write_to_stream() {
+    $class= '<?php class Test { }';
+
+    $out= new MemoryOutputStream();
+    $fixture= new ToStream($out);
+    with ($fixture->target('Test.php'), function($out) use($class) {
+      $out->write($class);
+      $out->flush();
+      $out->close();
+    });
+    $fixture->close();
+
+    Assert::equals($class, $out->bytes());
+  }
+}