aboutsummaryrefslogtreecommitdiff
//
//  boost/assert.hpp - BOOST_ASSERT(expr)
//
//  Copyright (c) 2001, 2002 Peter Dimov and Multi Media Ltd.
//
//  Permission to copy, use, modify, sell and distribute this software
//  is granted provided this copyright notice appears in all copies.
//  This software is provided "as is" without express or implied
//  warranty, and with no claim as to its suitability for any purpose.
//
//  Note: There are no include guards. This is intentional.
//
//  See http://www.boost.org/libs/utility/assert.html for documentation.
//

#undef BOOST_ASSERT

#if defined(BOOST_DISABLE_ASSERTS)

# define BOOST_ASSERT(expr) ((void)0)

#elif defined(BOOST_ENABLE_ASSERT_HANDLER)

#include <boost/current_function.hpp>

namespace boost
{

void assertion_failed(char const * expr, char const * function, char const * file, long line); // user defined

} // namespace boost

#define BOOST_ASSERT(expr) ((expr)? ((void)0): ::boost::assertion_failed(#expr, BOOST_CURRENT_FUNCTION, __FILE__, __LINE__))

#else
# include <assert.h>
# define BOOST_ASSERT(expr) assert(expr)
#endif
kdir (string-append directory "/guix")) (symlink (string-append %top-srcdir "/guix/import") (string-append directory "/guix/import")) ;; DIRECTORY/guix/import is a symlink but we want to make sure ;; 'scheme-modules' recurses into it. (match (map module-name (scheme-modules directory)) ((('guix 'import _ ...) ..1) #t))))) (test-equal "scheme-modules, non-existent directory" '() (scheme-modules "/does/not/exist")) (test-assert "all-modules" (match (map module-name (all-modules `((,%top-srcdir . "guix/build-system")))) ((('guix 'build-system names) ..1) names))) (test-assert "fold-module-public-variables" (let ((modules (all-modules `((,%top-srcdir . "guix/build-system"))))) (match (fold-module-public-variables (lambda (obj result) (if (build-system? obj) (cons obj result) result)) '() modules) (((? build-system? bs) ..1) bs)))) (test-end "discovery")