Tests/Infrastructure: Setup language tests

Author: LaCuneta

.github/workflows/main.yml

@@ -1,4 +1,4 @@
-name: build-check
+name: build-and-test
 
 on:
   push:
@@ -8,11 +8,14 @@ env:
   LIBERICA_URL: https://download.bell-sw.com/java/17.0.3+7/bellsoft-jdk17.0.3+7-linux-amd64-full.tar.gz
 
 jobs:
-  build-check:
+  build-and-test:
     runs-on: ubuntu-latest
     steps:
       - uses: actions/checkout@v2
+
       - uses: olafurpg/setup-scala@v10
         with:
           java-version: liberica@17=tgz+${{ env.LIBERICA_URL }}
+
       - run: sbt -v update compile
+      - run: sbt -v test

.gitignore

@@ -2,3 +2,4 @@
 target/
 /*.jar
 /*.zip
+.bsp/

Tests.txt

@@ -0,0 +1,81 @@
+Sizes
+  extensions [ bitmap ]
+  globals [ image ]
+  O> set image bitmap:import "extensions/bitmap/test-images/BitmapTest.jpg"
+  bitmap:width image => 1024
+  bitmap:height image => 768
+
+Base64
+  extensions [ bitmap ]
+  globals [ base64 image pcolors ]
+  O> set image bitmap:import "extensions/bitmap/test-images/BitmapTest.jpg"
+  O> set image bitmap:scaled image 64 48
+  O> bitmap:copy-to-pcolors image true
+  O> set pcolors map [ p -> [pcolor] of p ] (sort patches)
+  O> set base64 bitmap:to-base64 image
+  substring base64 0 49 => "iVBORw0KGgoAAAANSUhEUgAAAEAAAAAwCAYAAAChS3wfAAAnc"
+  O> set image bitmap:from-base64 base64
+  O> bitmap:copy-to-pcolors image true
+  pcolors = map [ p -> [pcolor] of p ] (sort patches) => true
+
+AverageColor
+  extensions [ bitmap ]
+  globals [ image ]
+  O> set image bitmap:import "extensions/bitmap/test-images/BitmapTest.jpg"
+  bitmap:average-color image => [139.44314320882162 94.44454701741536 88.15065892537434]
+
+FromView
+  extensions [ bitmap ]
+  globals [ image1 image2 ]
+  O> set image1 bitmap:import "extensions/bitmap/test-images/BitmapTest.jpg"
+  O> bitmap:copy-to-drawing image1 0 0
+  O> set image1 bitmap:from-view
+  O> set image2 bitmap:import "extensions/bitmap/test-images/BitmapTest-view-0x0.png"
+  bitmap:to-base64 image1 = bitmap:to-base64 image2 => true
+  O> clear-drawing
+  O> bitmap:copy-to-drawing image1 50 50
+  O> set image1 bitmap:from-view
+  O> set image2 bitmap:import "extensions/bitmap/test-images/BitmapTest-view-50x50.png"
+  bitmap:to-base64 image1 = bitmap:to-base64 image2 => true
+
+DifferenceRgb
+  extensions [ bitmap ]
+  globals [ image1 image2 ]
+  O> set image1 bitmap:import "extensions/bitmap/test-images/BitmapTest-view-0x0.png"
+  O> random-seed 12315
+  O> create-turtles 30 [ set color red pen-down forward 30 ]
+  O> set image2 bitmap:from-view
+  O> set image2 bitmap:difference-rgb image1 image2
+  O> bitmap:export image2 "../huh-rgb.png"
+  O> set image1 bitmap:import "extensions/bitmap/test-images/BitmapTest-difference-rgb.png"
+  bitmap:to-base64 image1 = bitmap:to-base64 image2 => true
+
+Channel
+  extensions [ bitmap ]
+  globals [ image1 image2 image3 ]
+  O> set image1 bitmap:import "extensions/bitmap/test-images/BitmapTest.jpg"
+
+  O> set image2 bitmap:channel image1 0
+  O> set image3 bitmap:import "extensions/bitmap/test-images/BitmapTest-alpha.png"
+  bitmap:to-base64 image2 = bitmap:to-base64 image3 => true
+
+  O> set image2 bitmap:channel image1 1
+  O> set image3 bitmap:import "extensions/bitmap/test-images/BitmapTest-red.png"
+  bitmap:to-base64 image2 = bitmap:to-base64 image3 => true
+
+  O> set image2 bitmap:channel image1 2
+  O> set image3 bitmap:import "extensions/bitmap/test-images/BitmapTest-green.png"
+  bitmap:to-base64 image2 = bitmap:to-base64 image3 => true
+
+  O> set image2 bitmap:channel image1 3
+  O> set image3 bitmap:import "extensions/bitmap/test-images/BitmapTest-blue.png"
+  bitmap:to-base64 image2 = bitmap:to-base64 image3 => true
+
+ToGrayscale
+  extensions [ bitmap ]
+  globals [ image1 image2 image3 ]
+  O> set image1 bitmap:import "extensions/bitmap/test-images/BitmapTest.jpg"
+
+  O> set image2 bitmap:to-grayscale image1
+  O> set image3 bitmap:import "extensions/bitmap/test-images/BitmapTest-grayscale.png"
+  bitmap:to-base64 image2 = bitmap:to-base64 image3 => true

build.sbt

@@ -6,8 +6,12 @@ name := "bitmap"
 version := "1.1.1"
 isSnapshot := true
 
-javaSource in Compile := baseDirectory.value / "src"
+Compile / javaSource := baseDirectory.value / "src" / "main"
 javacOptions ++= Seq("-g", "-deprecation", "-Xlint:all", "-Xlint:-serial", "-Xlint:-path", "-encoding", "us-ascii", "--release", "11")
 
-netLogoVersion := "6.2.2"
+Test / scalaSource := baseDirectory.value / "src" / "test"
+Test / scalaVersion := "2.12.17"
+
+netLogoVersion := "6.3.0"
 netLogoClassManager := "org.nlogo.extensions.bitmap.BitmapExtension"
+netLogoTestExtras += baseDirectory.value / "test-images"

project/build.properties

@@ -1 +1 @@
-sbt.version=1.3.13
+sbt.version=1.7.2

project/plugins.sbt

@@ -3,5 +3,5 @@ resolvers ++= Seq(
 , "netlogo-extension-documentation" at "https://dl.cloudsmith.io/public/netlogo/netlogo-extension-documentation/maven/"
 )
 
-addSbtPlugin("org.nlogo" % "netlogo-extension-plugin" % "5.2.2")
+addSbtPlugin("org.nlogo" % "netlogo-extension-plugin" % "6.0.0")
 addSbtPlugin("org.nlogo" % "netlogo-extension-documentation" % "0.8.3")

src/BitmapExtension.java src/main/BitmapExtension.javasrc/BitmapExtension.java renamed to src/main/BitmapExtension.java

@@ -0,0 +1,14 @@
+package org.nlogo.extensions.simpler
+
+import java.io.File
+import org.nlogo.headless.TestLanguage
+
+object Tests {
+  val testFileNames = Seq("Tests.txt")
+  val testFiles     = testFileNames.map( (f) => (new File(f)).getCanonicalFile )
+}
+
+class Tests extends TestLanguage(Tests.testFiles) {
+  System.setProperty("org.nlogo.preferHeadless", "true")
+  System.setProperty("java.awt.headless", "true")
+}