Line data    Source code

       1             : //-----------------------------------------------------------------------------
       2             : // LAGraph/src/test/test_Vector_Print.c: test LAGraph_Vector_Print
       3             : //-----------------------------------------------------------------------------
       4             : 
       5             : // LAGraph, (c) 2019-2022 by The LAGraph Contributors, All Rights Reserved.
       6             : // SPDX-License-Identifier: BSD-2-Clause
       7             : //
       8             : // For additional details (including references to third party source code and
       9             : // other files) see the LICENSE file or contact permission@sei.cmu.edu. See
      10             : // Contributors.txt for a full list of contributors. Created, in part, with
      11             : // funding and support from the U.S. Government (see Acknowledgments.txt file).
      12             : // DM22-0790
      13             : 
      14             : // Contributed by Timothy A. Davis, Texas A&M University
      15             : 
      16             : //-----------------------------------------------------------------------------
      17             : 
      18             : #include "LAGraph_test.h"
      19             : 
      20             : char msg [LAGRAPH_MSG_LEN] ;
      21             : GrB_Vector v = NULL ;
      22             : GrB_Index n = 40 ;
      23             : 
      24             : //-----------------------------------------------------------------------------
      25             : // test_print
      26             : //-----------------------------------------------------------------------------
      27             : 
      28           1 : void test_print (void)
      29             : {
      30           1 :     OK (LAGraph_Init (msg)) ;
      31           1 :     printf ("\n") ;
      32           1 :     LAGraph_PrintLevel pr = LAGraph_SHORT ;
      33             : 
      34           1 :     OK (GrB_Vector_new (&v, GrB_BOOL, n)) ;
      35           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      36           1 :     OK (GrB_Vector_setElement (v, 1, 0)) ;
      37           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      38           1 :     OK (GrB_Vector_free (&v)) ;
      39             : 
      40           1 :     OK (GrB_Vector_new (&v, GrB_INT8, n)) ;
      41           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      42           1 :     OK (GrB_Vector_setElement (v, -8, 0)) ;
      43           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      44           1 :     OK (GrB_Vector_free (&v)) ;
      45             : 
      46           1 :     OK (GrB_Vector_new (&v, GrB_INT16, n)) ;
      47           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      48           1 :     OK (GrB_Vector_setElement (v, -16, 0)) ;
      49           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      50           1 :     OK (GrB_Vector_free (&v)) ;
      51             : 
      52           1 :     OK (GrB_Vector_new (&v, GrB_INT32, n)) ;
      53           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      54           1 :     OK (GrB_Vector_setElement (v, -32, 0)) ;
      55           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      56           1 :     OK (GrB_Vector_free (&v)) ;
      57             : 
      58           1 :     OK (GrB_Vector_new (&v, GrB_INT64, n)) ;
      59           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      60           1 :     OK (GrB_Vector_setElement (v, -64, 0)) ;
      61           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      62           1 :     OK (GrB_Vector_free (&v)) ;
      63             : 
      64           1 :     OK (GrB_Vector_new (&v, GrB_UINT8, n)) ;
      65           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      66           1 :     OK (GrB_Vector_setElement (v, 8, 0)) ;
      67           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      68           1 :     OK (GrB_Vector_free (&v)) ;
      69             : 
      70           1 :     OK (GrB_Vector_new (&v, GrB_UINT16, n)) ;
      71           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      72           1 :     OK (GrB_Vector_setElement (v, 16, 0)) ;
      73           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      74           1 :     OK (GrB_Vector_free (&v)) ;
      75             : 
      76           1 :     OK (GrB_Vector_new (&v, GrB_UINT32, n)) ;
      77           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      78           1 :     OK (GrB_Vector_setElement (v, 32, 0)) ;
      79           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      80           1 :     OK (GrB_Vector_free (&v)) ;
      81             : 
      82           1 :     OK (GrB_Vector_new (&v, GrB_UINT64, n)) ;
      83           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      84           1 :     OK (GrB_Vector_setElement (v, 64, 0)) ;
      85           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      86           1 :     OK (GrB_Vector_free (&v)) ;
      87             : 
      88           1 :     OK (GrB_Vector_new (&v, GrB_FP32, n)) ;
      89           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      90           1 :     OK (GrB_Vector_setElement (v, 3.14159, 0)) ;
      91           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      92           1 :     OK (GrB_Vector_free (&v)) ;
      93             : 
      94           1 :     OK (GrB_Vector_new (&v, GrB_FP64, n)) ;
      95           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
      96           1 :     OK (GrB_Vector_setElement (v, 99.999, 0)) ;
      97           1 :     OK (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
      98             : 
      99             :     // attempt to print to a NULL file, which should fail
     100           1 :     int result = LAGraph_Vector_Print (v, pr, NULL, msg) ;
     101           1 :     TEST_CHECK (result == GrB_NULL_POINTER) ;
     102           1 :     OK (GrB_Vector_free (&v)) ;
     103             : 
     104             :     // attempt to print a vector with a user-defined type, which should fail
     105           1 :     GrB_Type type = NULL ;
     106           1 :     OK (GrB_Type_new (&type, sizeof (int))) ;
     107           1 :     OK (GrB_Vector_new (&v, type, n)) ;
     108           1 :     result = LAGraph_Vector_Print (v, pr, stdout, msg) ;
     109           1 :     TEST_CHECK (result == GrB_NOT_IMPLEMENTED) ;
     110           1 :     OK (GrB_Vector_free (&v)) ;
     111             : 
     112           1 :     OK (GrB_Type_free (&type)) ;
     113           1 :     OK (LAGraph_Finalize (msg)) ;
     114           1 : }
     115             : 
     116             : //-----------------------------------------------------------------------------
     117             : // test_print_brutal
     118             : //-----------------------------------------------------------------------------
     119             : 
     120             : #if LAGRAPH_SUITESPARSE
     121           1 : void test_print_brutal (void)
     122             : {
     123           1 :     OK (LG_brutal_setup (msg)) ;
     124           1 :     printf ("\n") ;
     125           1 :     LAGraph_PrintLevel pr = LAGraph_SHORT ;
     126             : 
     127           1 :     OK (GrB_Vector_new (&v, GrB_BOOL, n)) ;
     128           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     129           1 :     OK (GrB_Vector_setElement (v, 1, 0)) ;
     130           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     131           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     132           1 :     OK (GrB_Vector_free (&v)) ;
     133             : 
     134           1 :     OK (GrB_Vector_new (&v, GrB_INT8, n)) ;
     135           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     136           1 :     OK (GrB_Vector_setElement (v, -8, 0)) ;
     137           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     138           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     139           1 :     OK (GrB_Vector_free (&v)) ;
     140             : 
     141           1 :     OK (GrB_Vector_new (&v, GrB_INT16, n)) ;
     142           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     143           1 :     OK (GrB_Vector_setElement (v, -16, 0)) ;
     144           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     145           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     146           1 :     OK (GrB_Vector_free (&v)) ;
     147             : 
     148           1 :     OK (GrB_Vector_new (&v, GrB_INT32, n)) ;
     149           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     150           1 :     OK (GrB_Vector_setElement (v, -32, 0)) ;
     151           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     152           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     153           1 :     OK (GrB_Vector_free (&v)) ;
     154             : 
     155           1 :     OK (GrB_Vector_new (&v, GrB_INT64, n)) ;
     156           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     157           1 :     OK (GrB_Vector_setElement (v, -64, 0)) ;
     158           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     159           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     160           1 :     OK (GrB_Vector_free (&v)) ;
     161             : 
     162           1 :     OK (GrB_Vector_new (&v, GrB_UINT8, n)) ;
     163           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     164           1 :     OK (GrB_Vector_setElement (v, 8, 0)) ;
     165           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     166           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     167           1 :     OK (GrB_Vector_free (&v)) ;
     168             : 
     169           1 :     OK (GrB_Vector_new (&v, GrB_UINT16, n)) ;
     170           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     171           1 :     OK (GrB_Vector_setElement (v, 16, 0)) ;
     172           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     173           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     174           1 :     OK (GrB_Vector_free (&v)) ;
     175             : 
     176           1 :     OK (GrB_Vector_new (&v, GrB_UINT32, n)) ;
     177           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     178           1 :     OK (GrB_Vector_setElement (v, 32, 0)) ;
     179           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     180           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     181           1 :     OK (GrB_Vector_free (&v)) ;
     182             : 
     183           1 :     OK (GrB_Vector_new (&v, GrB_UINT64, n)) ;
     184           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     185           1 :     OK (GrB_Vector_setElement (v, 64, 0)) ;
     186           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     187           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     188           1 :     OK (GrB_Vector_free (&v)) ;
     189             : 
     190           1 :     OK (GrB_Vector_new (&v, GrB_FP32, n)) ;
     191           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     192           1 :     OK (GrB_Vector_setElement (v, 3.14159, 0)) ;
     193           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     194           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     195           1 :     OK (GrB_Vector_free (&v)) ;
     196             : 
     197           1 :     OK (GrB_Vector_new (&v, GrB_FP64, n)) ;
     198           1 :     OK (GrB_assign (v, NULL, NULL, 0, GrB_ALL, n, NULL)) ;
     199           1 :     OK (GrB_Vector_setElement (v, 99.999, 0)) ;
     200           1 :     OK (GrB_wait (v, GrB_MATERIALIZE)) ;
     201           3 :     LG_BRUTAL_BURBLE (LAGraph_Vector_Print (v, pr, stdout, msg)) ;
     202           1 :     OK (GrB_Vector_free (&v)) ;
     203             : 
     204           1 :     OK (LG_brutal_teardown (msg)) ;
     205           1 : }
     206             : #endif
     207             : 
     208             : //-----------------------------------------------------------------------------
     209             : // TEST_LIST: the list of tasks for this entire test
     210             : //-----------------------------------------------------------------------------
     211             : 
     212             : TEST_LIST = {
     213             :     {"test_print", test_print},
     214             :     #if LAGRAPH_SUITESPARSE
     215             :     {"test_print_brutal", test_print_brutal},
     216             :     #endif
     217             :     {NULL, NULL}
     218             : };