From e5a68034de5aa9a5d3e070cbf05b2683243cabfd Mon Sep 17 00:00:00 2001
From: siddhesh195 <siddheshdeodhar95@gmail.com>
Date: Wed, 10 Jul 2024 00:05:51 -0400
Subject: [PATCH] Test to check for title of 3 plots

Test to check for titles of 3 plots
---
 tests/testthat/test-renderer3-threeplots.R | 45 ++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 tests/testthat/test-renderer3-threeplots.R

diff --git a/tests/testthat/test-renderer3-threeplots.R b/tests/testthat/test-renderer3-threeplots.R
new file mode 100644
index 000000000..978502d07
--- /dev/null
+++ b/tests/testthat/test-renderer3-threeplots.R
@@ -0,0 +1,45 @@
+
+
+test_that("check if two plots exist", {
+  data1 <- data.frame(
+    x = c(1, 2, 3), # x-coordinates of the dots
+    y = c(1, 4, 9)  # y-coordinates of the dots
+  )
+  
+  plot1 <- ggplot(data1, aes(x, y)) + 
+    geom_point(size = 2) +            # Plot points with a specified size
+    ggtitle("Plot of 3 Dots") +        # Add a title to the plot
+    xlab("X Axis") + ylab("Y Axis")
+  
+  data2 <- data.frame(
+    x = c(1, 2), # x-coordinates of the dots
+    y = c(1, 4)  # y-coordinates of the dots
+  )
+  
+  plot2 <- ggplot(data2, aes(x, y)) + 
+    geom_point(size = 2) +            # Plot points with a specified size
+    ggtitle("Plot of 2 Dots") +        # Add a title to the plot
+    xlab("X Axis") + ylab("Y Axis")
+  
+  data3 <- data.frame(
+    x = c(2), # x-coordinates of the dots
+    y = c(2)  # y-coordinates of the dots
+  )
+  
+  plot3 <- ggplot(data3, aes(x, y)) + 
+    geom_point(size = 2) +            # Plot points with a specified size
+    ggtitle("Plot of 1 Dot") +        # Add a title to the plot
+    xlab("X Axis") + ylab("Y Axis")
+  
+  plot_list <- list(
+    plot1 = plot1,
+    plot2=plot2,
+    plot3=plot3
+  )
+  
+  info <-animint2HTML(plot_list)
+  titles <- getNodeSet(info$html, "//text[@class='plottitle']")
+  expect_match(xmlValue(titles[[1]]), "Plot of 3 Dots")
+  expect_match(xmlValue(titles[[2]]), "Plot of 2 Dots")
+  expect_match(xmlValue(titles[[3]]), "Plot of 1 Dot")
+})