feat: Always apply top-left correction for new derivatives (DEV-4481) (…

…#323)
dasch-swiss · Jan 16, 2025 · 83185e9 · 83185e9
1 parent 6840226
commit 83185e9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/main/scala/swiss/dasch/domain/SipiClient.scala b/src/main/scala/swiss/dasch/domain/SipiClient.scala
@@ -36,7 +36,7 @@ object SipiCommand {
       (for {
         abs1 <- fileIn.toAbsolutePath
         abs2 <- fileOut.toAbsolutePath
-      } yield List(flag(), outputFormat.toCliString, abs1.toString, abs2.toString)).orDie
+      } yield List(flag(), "--topleft", outputFormat.toCliString, abs1.toString, abs2.toString)).orDie
   }
 
   /**

diff --git a/src/test/scala/swiss/dasch/domain/SipiCommandSpec.scala b/src/test/scala/swiss/dasch/domain/SipiCommandSpec.scala
@@ -18,7 +18,7 @@ object SipiCommandSpec extends ZIOSpecDefault {
         check(Gen.fromIterable(SipiImageFormat.all)) { format =>
           for {
             cmd <- FormatArgument(format, Path("/tmp/example"), Path("/tmp/example2")).render()
-          } yield assertTrue(cmd == List("--format", format.toCliString, "/tmp/example", "/tmp/example2"))
+          } yield assertTrue(cmd == List("--format", "--topleft", format.toCliString, "/tmp/example", "/tmp/example2"))
         }
       },
       test("should assemble query command") {