R Under development (unstable) (2024-12-07 r87428 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> #Set to TRUE to run tests
> if(FALSE){
+ 
+ library(network)
+ if (require(statnet.common,quietly=TRUE)){
+ 
+   opttest({
+     gctorture(TRUE)
+     n <- 10
+     test <- network.initialize(n)
+     for (i in 1:(n-1)){
+       for (j in (i+1):n){
+         cat(i,j,'\n')
+         get.inducedSubgraph(test,v=i:j)
+       }
+     }
+     gctorture(FALSE)
+   },'Ticket #180 Test 1','NETWORK_pathology_TESTS')
+ 
+   opttest({
+     gctorture(TRUE)
+     test <- network.initialize(10)
+     delete.vertices(test,5)
+     gctorture(FALSE)
+   },'Ticket #180 Test 2','NETWORK_pathology_TESTS')
+ 
+   opttest({
+     x <- network.initialize(10)
+     x[,] <- 1
+     try(set.edge.value(x,'foo',matrix('bar',5,5)))
+   },'Ticket #827','NETWORK_pathology_TESTS')
+ 
+ }
+ 
+ #End tests
+ }
> 
> proc.time()
   user  system elapsed 
   0.17    0.01    0.17