diff --git a/R/constructors.R b/R/constructors.R
index 688d393..fd059a0 100644
--- a/R/constructors.R
+++ b/R/constructors.R
@@ -8,8 +8,6 @@
 #
 # Distributed under the terms of the GNU Public License v 3.0
 
-# TODO: FLBRP(FLStockR)
-
 # FLBRP(object='missing', sr='missing') {{{
 #' @rdname FLBRP
 #' @aliases FLBRP-missing,missing-method
diff --git a/tests/brp.R b/tests/brp.R
new file mode 100644
index 0000000..a60b552
--- /dev/null
+++ b/tests/brp.R
@@ -0,0 +1,17 @@
+# brp.R - DESC
+# tests/brp.R
+
+# Copyright (c) WUR, 2024.
+# Author: Iago MOSQUEIRA (WMR) <iago.mosqueira@wur.nl>
+#
+# Distributed under the terms of the EUPL-1.2
+
+# XX {{{
+# }}}
+
+data(ple4)
+
+a<-brp(FLBRP(ple4))
+b<-brp(FLBRP(ple4))
+
+all.equal(a, b)