From d238d109c95f2245f2f68b53d054bd28d7e95fb0 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Mon, 24 Oct 2022 19:35:04 +0100
Subject: Whitespace cleanup in R testcase

---
 Examples/test-suite/r/li_boost_shared_ptr_runme.R | 140 +++++++++++-----------
 1 file changed, 70 insertions(+), 70 deletions(-)

(limited to 'Examples')

diff --git a/Examples/test-suite/r/li_boost_shared_ptr_runme.R b/Examples/test-suite/r/li_boost_shared_ptr_runme.R
index d1e343cb3..ecdc7f1ab 100644
--- a/Examples/test-suite/r/li_boost_shared_ptr_runme.R
+++ b/Examples/test-suite/r/li_boost_shared_ptr_runme.R
@@ -24,8 +24,8 @@ unittest(shared_ptr_wrapper_count(), NOT_COUNTING())
 #
 
 testSuite_verifyCount <- function(expected, k) {
-	got = use_count(k)
-	unittest(expected, got);
+  got = use_count(k)
+  unittest(expected, got);
 }
 
 testSuite <- function() {
@@ -34,7 +34,7 @@ testSuite <- function() {
   # Reference Implementation is li_boost_shared_ptr_runme.py
   #
 
-	# simple shared_ptr usage - created in C++
+  # simple shared_ptr usage - created in C++
   {
     k = Klass("me oh my")
     val = k$getValue()
@@ -42,73 +42,73 @@ testSuite <- function() {
     testSuite_verifyCount(1, k)
   }
 
-	# simple shared_ptr usage - not created in C++
-	{
-	  k = factorycreate()
-	  val = k$getValue()
-	  unittest("factorycreate", val)
-	  testSuite_verifyCount(1, k)
-	}
-
-	# pass by shared_ptr
-	{
-	  k = Klass("me oh my")
-	  kret = smartpointertest(k)
-	  val = kret$getValue()
-	  unittest("me oh my smartpointertest", val)
-	  testSuite_verifyCount(2, k)
-	  testSuite_verifyCount(2, kret)
-	}
-
-	# pass by shared_ptr pointer
-	{
-	  k = Klass("me oh my")
-	  kret = smartpointerpointertest(k)
-	  val = kret$getValue()
-	  unittest("me oh my smartpointerpointertest", val)
-	  testSuite_verifyCount(2, k)
-	  testSuite_verifyCount(2, kret)
-	}
-
-	# pass by shared_ptr reference
-	{
-	  k = Klass("me oh my")
-	  kret = smartpointerreftest(k)
-	  val = kret$getValue()
-	  unittest("me oh my smartpointerreftest", val)
-	  testSuite_verifyCount(2, k)
-	  testSuite_verifyCount(2, kret)
-	}
-
-	if (FALSE) {
-	  # pass by shared_ptr pointer reference
-	  k = Klass("me oh my")
-	  kret = smartpointerpointerreftest(k)
-	  val = kret$getValue()
-	  unittest("me oh my smartpointerpointerreftest", val)
-	  testSuite_verifyCount(2, k)
-	  testSuite_verifyCount(2, kret)
-	}
-
-	if (FALSE) {
-	  # pass by shared_ptr pointer reference
-	  k = Klass("me oh my");
-	  kret = smartpointerpointerreftest(k);
-	  val = kret$getValue()
-	  unittest("me oh my smartpointerpointerreftest", val);
-	  testSuite_verifyCount(2, k);
-	  testSuite_verifyCount(2, kret);
-	}
-
-	# const pass by shared_ptr
-	{
-	  k = Klass("me oh my");
-	  kret = constsmartpointertest(k);
-	  val = Klass_getValue(kret);
-	  unittest("me oh my", val);
-	  testSuite_verifyCount(2, k);
-	  testSuite_verifyCount(2, kret);
-	}
+  # simple shared_ptr usage - not created in C++
+  {
+    k = factorycreate()
+    val = k$getValue()
+    unittest("factorycreate", val)
+    testSuite_verifyCount(1, k)
+  }
+
+  # pass by shared_ptr
+  {
+    k = Klass("me oh my")
+    kret = smartpointertest(k)
+    val = kret$getValue()
+    unittest("me oh my smartpointertest", val)
+    testSuite_verifyCount(2, k)
+    testSuite_verifyCount(2, kret)
+  }
+
+  # pass by shared_ptr pointer
+  {
+    k = Klass("me oh my")
+    kret = smartpointerpointertest(k)
+    val = kret$getValue()
+    unittest("me oh my smartpointerpointertest", val)
+    testSuite_verifyCount(2, k)
+    testSuite_verifyCount(2, kret)
+  }
+
+  # pass by shared_ptr reference
+  {
+    k = Klass("me oh my")
+    kret = smartpointerreftest(k)
+    val = kret$getValue()
+    unittest("me oh my smartpointerreftest", val)
+    testSuite_verifyCount(2, k)
+    testSuite_verifyCount(2, kret)
+  }
+
+  if (FALSE) {
+    # pass by shared_ptr pointer reference
+    k = Klass("me oh my")
+    kret = smartpointerpointerreftest(k)
+    val = kret$getValue()
+    unittest("me oh my smartpointerpointerreftest", val)
+    testSuite_verifyCount(2, k)
+    testSuite_verifyCount(2, kret)
+  }
+
+  if (FALSE) {
+    # pass by shared_ptr pointer reference
+    k = Klass("me oh my");
+    kret = smartpointerpointerreftest(k);
+    val = kret$getValue()
+    unittest("me oh my smartpointerpointerreftest", val);
+    testSuite_verifyCount(2, k);
+    testSuite_verifyCount(2, kret);
+  }
+
+  # const pass by shared_ptr
+  {
+    k = Klass("me oh my");
+    kret = constsmartpointertest(k);
+    val = Klass_getValue(kret);
+    unittest("me oh my", val);
+    testSuite_verifyCount(2, k);
+    testSuite_verifyCount(2, kret);
+  }
 
   # const pass by shared_ptr pointer
   {
-- 
cgit v1.2.1