1# Copyright 2021 Northern.tech AS 2 3# This file is part of CFEngine 3 - written and maintained by Northern.tech AS. 4 5# This program is free software; you can redistribute it and/or modify it 6# under the terms of the GNU General Public License as published by the 7# Free Software Foundation; version 3. 8 9# This program is distributed in the hope that it will be useful, 10# but WITHOUT ANY WARRANTY; without even the implied warranty of 11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12# GNU General Public License for more details. 13 14# You should have received a copy of the GNU General Public License 15# along with this program; if not, write to the Free Software 16# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA 17 18# To the extent this program is licensed as part of the Enterprise 19# versions of Cfengine, the applicable Commercial Open Source License 20# (COSL) may apply to this file if you as a licensee so wish it. See 21# included file COSL.txt. 22 23#+begin_src cfengine3 24body common control 25{ 26 bundlesequence => { "test" }; 27} 28 29bundle agent test 30{ 31 vars: 32 "mylist" slist => { "b", "c", "a" }; 33 "seeds" slist => { "xx", "yy", "zz" }; 34 35 "shuffled_$(seeds)" slist => shuffle(mylist, $(seeds)); 36 37 "joined_$(seeds)" string => join(",", "shuffled_$(seeds)"); 38 39 reports: 40 "shuffled RANDOMLY by $(seeds) = '$(joined_$(seeds))'"; 41} 42#+end_src 43############################################################################### 44# Not checked because shuffle is random. 45#+begin_src example_output 46#@ ``` 47#@ R: shuffled RANDOMLY by xx = 'b,a,c' 48#@ R: shuffled RANDOMLY by yy = 'a,c,b' 49#@ R: shuffled RANDOMLY by zz = 'c,b,a' 50#@ ``` 51#+end_src 52