From 1ba1493d3d34af3bf4d74b5291e17363741867ea Mon Sep 17 00:00:00 2001
From: pepijn-devries <peppi2@gmail.com>
Date: Tue, 7 Jan 2025 09:22:40 +0100
Subject: [PATCH] A few tweaks in the tests and examples

---
 DESCRIPTION                    | 2 +-
 NEWS.md                        | 2 +-
 R/generic_support.r            | 4 +---
 R/iff.8svx.r                   | 4 +---
 man/WaveToIFF.Rd               | 4 +---
 man/colourToAmigaRaw.Rd        | 4 +---
 tests/testthat/test-examples.R | 3 ++-
 7 files changed, 8 insertions(+), 15 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 3d80910..6a80fb9 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: AmigaFFH
 Type: Package
 Title: Commodore Amiga File Format Handler
-Version: 0.4.6
+Version: 0.4.7
 Authors@R: c(person("Pepijn", "de Vries", role = c("aut", "cre", "dtc"),
     email = "pepijn.devries@outlook.com"))
 Author: Pepijn de Vries [aut, cre, dtc]
diff --git a/NEWS.md b/NEWS.md
index bf5228b..1372f25 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,4 +1,4 @@
-AmigaFFH v0.4.6
+AmigaFFH v0.4.7
 =============
 
  * Fixed broken `adfExplorer` dependency
diff --git a/R/generic_support.r b/R/generic_support.r
index 8b8d196..62ca043 100644
--- a/R/generic_support.r
+++ b/R/generic_support.r
@@ -53,9 +53,7 @@ dither <- function(x, method, ...) {
 #' amigaRawToColour(as.raw(c(0xf0, 0xf0, 0xf0)), n.bytes = "3")
 #' 
 #' ## lower nybbles are ignored, you will get a warning when it is not zero:
-#' \donttest{
-#' amigaRawToColour(as.raw(c(0xf0, 0xf0, 0x0f)), n.bytes = "3")
-#' }
+#' # amigaRawToColour(as.raw(c(0xf0, 0xf0, 0x0f)), n.bytes = "3")
 #' @family raw.operations
 #' @author Pepijn de Vries
 #' @export
diff --git a/R/iff.8svx.r b/R/iff.8svx.r
index cdfd4c6..8c21355 100644
--- a/R/iff.8svx.r
+++ b/R/iff.8svx.r
@@ -182,9 +182,7 @@ setMethod("play", "IFFChunk", function(object, player = NULL, ...) {
 #' ## You could also use a sine wave as input (although you will get some warnings).
 #' ## This will work because the vector of numeric data can be coerced to
 #' ## a WaveMC object
-#' \donttest{
-#'   sine.iff <- WaveToIFF(sin((0:2000)/20))
-#' }
+#' # sine.iff <- WaveToIFF(sin((0:2000)/20))
 #' @family iff.operations
 #' @references <https://en.wikipedia.org/wiki/8SVX>
 #' @author Pepijn de Vries
diff --git a/man/WaveToIFF.Rd b/man/WaveToIFF.Rd
index e716c9f..ffb1705 100644
--- a/man/WaveToIFF.Rd
+++ b/man/WaveToIFF.Rd
@@ -68,9 +68,7 @@ snare.iff <- WaveToIFF(snare.wav)
 ## You could also use a sine wave as input (although you will get some warnings).
 ## This will work because the vector of numeric data can be coerced to
 ## a WaveMC object
-\donttest{
-  sine.iff <- WaveToIFF(sin((0:2000)/20))
-}
+# sine.iff <- WaveToIFF(sin((0:2000)/20))
 }
 \references{
 \url{https://en.wikipedia.org/wiki/8SVX}
diff --git a/man/colourToAmigaRaw.Rd b/man/colourToAmigaRaw.Rd
index 306c597..11c1700 100644
--- a/man/colourToAmigaRaw.Rd
+++ b/man/colourToAmigaRaw.Rd
@@ -66,9 +66,7 @@ amigaRawToColour(as.raw(c(0x0f, 0xff)))
 amigaRawToColour(as.raw(c(0xf0, 0xf0, 0xf0)), n.bytes = "3")
 
 ## lower nybbles are ignored, you will get a warning when it is not zero:
-\donttest{
-amigaRawToColour(as.raw(c(0xf0, 0xf0, 0x0f)), n.bytes = "3")
-}
+# amigaRawToColour(as.raw(c(0xf0, 0xf0, 0x0f)), n.bytes = "3")
 }
 \seealso{
 Other raw.operations: 
diff --git a/tests/testthat/test-examples.R b/tests/testthat/test-examples.R
index 386c9e4..e4ecf50 100644
--- a/tests/testthat/test-examples.R
+++ b/tests/testthat/test-examples.R
@@ -1 +1,2 @@
-test_examples()
\ No newline at end of file
+test_examples() |>
+  capture_output()
\ No newline at end of file