#
# --- Test pdata.R ---
#

test.pdata <- function() {
    # function(data,type,comment,metadata)
}

test.check_pdata <- function() {
}

test.extract.pdata <- function() {
    # test "[" and "[["
}

test.assign.pdata <- function() {
    # test "[<-" and "[[<-"
}

test.plot.pdata <- function() {
}
