root / gr-uhd / swig / uhd.test @ 8af43d7d
History | View | Annotate | Download (1.3 kB)
| 1 | b8f174ce | Eric Blossom | ;;; -*- Scheme -*- |
|---|---|---|---|
| 2 | b8f174ce | Eric Blossom | ;;; |
| 3 | b8f174ce | Eric Blossom | ;;; Copyright 2010 Free Software Foundation, Inc. |
| 4 | b8f174ce | Eric Blossom | ;;; |
| 5 | b8f174ce | Eric Blossom | ;;; This file is part of GNU Radio |
| 6 | b8f174ce | Eric Blossom | ;;; |
| 7 | b8f174ce | Eric Blossom | ;;; GNU Radio is free software; you can redistribute it and/or modify |
| 8 | b8f174ce | Eric Blossom | ;;; it under the terms of the GNU General Public License as published by |
| 9 | b8f174ce | Eric Blossom | ;;; the Free Software Foundation; either version 3, or (at your option) |
| 10 | b8f174ce | Eric Blossom | ;;; any later version. |
| 11 | b8f174ce | Eric Blossom | ;;; |
| 12 | b8f174ce | Eric Blossom | ;;; GNU Radio is distributed in the hope that it will be useful, |
| 13 | b8f174ce | Eric Blossom | ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 14 | b8f174ce | Eric Blossom | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 15 | b8f174ce | Eric Blossom | ;;; GNU General Public License for more details. |
| 16 | b8f174ce | Eric Blossom | ;;; |
| 17 | b8f174ce | Eric Blossom | ;;; You should have received a copy of the GNU General Public License |
| 18 | b8f174ce | Eric Blossom | ;;; along with this program. If not, see <http://www.gnu.org/licenses/>. |
| 19 | b8f174ce | Eric Blossom | ;;; |
| 20 | b8f174ce | Eric Blossom | |
| 21 | b8f174ce | Eric Blossom | ;;; If you're using Emacs's Scheme mode: |
| 22 | b8f174ce | Eric Blossom | ;;; (put 'with-test-prefix 'scheme-indent-function 1) |
| 23 | b8f174ce | Eric Blossom | |
| 24 | b8f174ce | Eric Blossom | ;;; See the comments in gnuradio/test-suite/lib.scm for info on writing tests. |
| 25 | b8f174ce | Eric Blossom | ;;; See also the very end of the file, where the test-equal, test-eqv |
| 26 | b8f174ce | Eric Blossom | ;;; and test-eq macros are defined. |
| 27 | b8f174ce | Eric Blossom | |
| 28 | b8f174ce | Eric Blossom | (define-module (test-module) |
| 29 | b8f174ce | Eric Blossom | #:use-module (oop goops) |
| 30 | b8f174ce | Eric Blossom | #:use-module (gnuradio core) |
| 31 | b8f174ce | Eric Blossom | #:use-module (gnuradio test-suite lib) |
| 32 | b8f174ce | Eric Blossom | #:duplicates (merge-generics replace check)) |
| 33 | b8f174ce | Eric Blossom | |
| 34 | b8f174ce | Eric Blossom | ;;; Just see if we can import the module... |
| 35 | b8f174ce | Eric Blossom | ;;; They may not have a UHD device attached, powered up etc. |
| 36 | b8f174ce | Eric Blossom | |
| 37 | b8f174ce | Eric Blossom | (use-modules (gnuradio uhd)) |