remove tests for xfun::with_ext()

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: bookdown
 Type: Package
 Title: Authoring Books and Technical Documents with R Markdown
-Version: 0.45.1
+Version: 0.45.2
 Authors@R: c(
     person("Yihui", "Xie", role = c("aut", "cre"), email = "xie@yihui.name", comment = c(ORCID = "0000-0003-0645-5666")),
     person("Christophe", "Dervieux", , "cderv@posit.co", role = c("ctb"),

NEWS.md

@@ -1,5 +1,6 @@
 # CHANGES IN bookdown VERSION 0.46
 
+- Removed tests for `xfun::with_ext()` that don't belong to this package.
 
 # CHANGES IN bookdown VERSION 0.45
 

tests/testit/test-utils.R

@@ -1,31 +1,8 @@
 library(testit)
 
-1 %==% 1
-
-assert(
-  'next_nearest() works',
-  next_nearest(c(1, 4, 8), 1:9) %==% c(2L, 5L, 9L)
-)
-
-assert(
-  'with_ext() works',
-  with_ext(NULL, 'a') %==% NULL,
-  with_ext('a', NULL) %==% 'a',
-  with_ext('a', 'bcd') %==% 'a.bcd',
-  with_ext('a.html', '') %==% 'a',
-  with_ext('a.html', 'tex') %==% 'a.tex',
-  with_ext('a.html', '.tex') %==% 'a.tex',
-  with_ext(c('a', 'b', 'c'), 'css') %==% c('a.css', 'b.css', 'c.css'),
-  with_ext(c('a.html', 'b', 'c.js'), 'css') %==% c('a.css', 'b.css', 'c.css'),
-  with_ext(c('a.html', 'b', 'c'), '.css') %==% c('a.css', 'b.css', 'c.css'),
-  with_ext('a', c('css', '.html')) %==% c('a.css', 'a.html'),
-  with_ext(c('a.doc', 'b.gz', 'c'), c('css', '.tar', '.png')) %==% c('a.css', 'b.tar', 'c.png')
-)
-
-assert(
-  'with_ext() signals an error when length(x) != length(ext)',
-  has_error(with_ext(c('a', 'b.css'), c('foo', 'bar', 'ham')))
-)
+assert('next_nearest() works', {
+  (next_nearest(c(1, 4, 8), 1:9) %==% c(2L, 5L, 9L))
+})
 
 assert('clean_meta_tags() cleans HTML inside <meta>', {
   (clean_meta_tags('<meta name="foo" content="hi text">') %==%